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I INTRODUCTION  AND  OVERVIEW* 

The  NATO  Reference  Mobility  Model  ( NRMM)  is  a 

collection  of  equations  and  algorithms  designed  to  simulate  the 
cross-country  movement  of  vehicles.  It  was  developed  from  several 
predecessor  models,  principally  AMC-7^  (Jurkat,  Nuttall  and  Haley 
(1975)).  This  report,  in  several  volumes,  provides  some  background  and 
motivation  for  most  aspects  of  the  model,  and  presents  documentation 
for  the  coded  version  now  available  through  the  U.  S.  Army 
Tank-Automotive  Research  and  Development  Command  (TARADCOM). 

A.  Background 

Rational  design  and  selection  of  military  ground  vehicles 
requires  objective  evaluation  of  an  ever-increasing  number  of  vehicle 
system  options.  Technology,  threat,  operational  requirements,  and  cost 
constraints  change  with  time.  Current  postures  must  be  reexamined,  new 
options  evaluated,  and  new  trade-offs  and  decisions  made.  In  the 
single  area  of  combat  vehicles,  for  example,  changes  in  one  or  another 
influencing  factor  might  require  trade-offs  that  run  the  gamut  from 
opting  for  an  air  or  ground  system,  through  choosing  wheels,  tracks  or 
air  cushions,  to  designating  a new  tire. 

The  former  Mobility  Systems  Laboratory  of  the  then  U.  S.  Army 
Tank-Automotive  Command  (TACOM)  and  the  U.  S.  Army  Engineer  Waterways 
Experiment  Station  (WES)  are  the  Army  agencies  responsible  for 

* This  chapter  is  adapted  from  Jurkat,  Nuttall  and  Haley  (1975). 
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conducting  ground  mobility  research.  In  1971,  a unified  U.  S.  ground 
mobility  program,  under  the  direction  of  the  then  Army  Materiel 
Command  (AMC),  was  implemented  that  specifically  geared  the 
capabilities  of  both  laboratories  to  achieve  common  goals. 

As  a first  step  in  the  unified  program,  a detailed  review  was 
made  of  existing  vehicle  mobility  technology  and  of  the  problems  and 
requirements  of  the  various  engineering  practitioners  associated  with 
the  military  vehicle  life  cycle.  One  basic  requirement  was  identified 
as  common  to  all  practitioners  surveyed:  the  need  for  an  objective 
analytical  procedure  for  quantitatively  assessing  the  performance  of  a 
vehicle  in  a specified  operational  environment.  This  is  the  need  that 
is  addressed  to  a substantial  extent  by  the  INRMM  and  its 
predecessors . 

In  theory,  a single  methodology  can  serve  some  of  the  needs  of 
all  major  practitioners,  provided  it  relates  vehicle  performance  to 
basic  characteristics  of  the  vehicle-driver-terrain  system  at 
appropriate  levels  of  detail. 

Three  principal  categories  of  potential  users  of  the 
methodology  were  identified:  the  vehicle  development  community,  the 
vehicle  procurement  community,  and  the  vehicle  user  community  (Figure 
I.A.1).  The  greatest  level  of  detail  is  needed  by  the  design  and 
development  engineer  (vehicle  design  and  development  community)  who  is 
interested  in  subtle  engineering  details — for  example,  wheel  geometry, 
sprung  masses,  spring  rates,  track  widths,  etc. --and  their 
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• PROSPECTIVE  USERS  OF  VEHICLE  PERFORMANCE  PREDICTION  METHODOLOGY 

FIGURE  I-A-1 


interactions  with  soil  strength,  tree  stems  of  various  sizes  and 
spacings,  approach  angles  in  ditches  and  streams,  etc.  At  the  other 
end  of  the  spectrum  is  the  strategic  planner  (user  community),  who  is 
interested  in  such  highly  aggregated  characteristics  as  the  average 
cross-country  speed  of  a given  vehicle  throughout  a specified 
region — the  net  result  of  many  interactions  of  the  engineering  details 
with  features  of  the  total  operational  environment.  Between  these  two 
extremes,  is  the  person  responsible  for  selection  of  the  vehicles  who 
must  evaluate  the  effect  of  changes  of  major  subsystems  or  choose  from 
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concepts  of  early  design  stages.  To  be  responsive  to  the  needs  of  all  ' 
three  user  communities,  the  methodology  must  be  flexible  enough  to 
provide  compatible  results  at  many  levels  and  in  an  appropriate 
variety  of  formats. 


Interest  in  a single,  unified  methodology  applicable  to  the 
needs  of  these  three  principal  users  led  to  the  creation  of  a 
cross-country  vehicle  computer  simulation  combining  the  best  available 
knowledge  and  models  of  the  day.  Much  of  this  knowledge  was  collected 
in  Rula  and  Nuttall  (1971).  The  first  realization  of  the  simulation 
was  a series  of  computer  programs  known  as  the  AMC-71  Mobility  Model, 
called  AMC-71  for  short  (US  ATAC(1973)).  This  model  first  became 
operational  in  1971;  it  was  published  in  1973*  It  was  conceived  as  the 
first  generation  of  a family  whose  descendants,  under  the  evolutionary 
pressures  of  subsequent  research  and  validation  testing  results, 
application  experiences,  and  growing  user  requirements,  would  be 
cliaracterized  by  greater  accuracy  and  applicability.  A relatively 
current  status  report  may  be  found  in  Nuttall,  Rula  and  Dugoff  (1974). 


The  first  descendant,  known  as  AMC-74,  is  the 
INRMM.  It  is  documented  in  Jurkat,  Nuttall  and  Haley 
following  is  a description  of  this  model. 


basis  for  the 
(1975).  The 
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B.  Modeling  Off-Road  Vehicle  Mobility 

In  undertaking  mobility  modeling,  the  first  question  to  be 
answered  was  the  seemingly  easy  one;  What  is  mobility?  The  answer  had 
been  elusive  for  many  years.  Semantic  reasons  can  be  traced  to  the 
beginnings  of  mobility  research,  but  there  was  also  a pervasive 
reluctance  to  accept  the  simple  fact  that  even  intuitive  notions  about 
a vehicle's  mobility  depend  greatly  on  -the  conditions  under  which  it 
is  operating.  By  the  mid-1960s,  however,  a consensus  had  emerged  that 
the  maximum  feasible  speed-made-good*  by  a vehicle  between  two  points 
in  a given  terrain  was  a suitable  measure  of  its  intrinsic  mobility  in 
that  situation. 

This  definition  not  only  identified  the  engineering  measure  of 
mobility,  but  also  its  dependence  on  both  terrain  and  mission.  When, 
at  a suitably  high  resolution,  the  terrain  involved  presents  the 
identical  set  of  impediments  to  vehicle  travel  throughout  its  extent, 
mobility  in  that  terrain  (ignoring  edge  effects)  is  the  vehicle's 
maximum  straight-line  speed  as  limited  only  by  those  impediments.  But 
when,  as  is  typically  the  case,  the  terrain  is  not  so  homogeneous,  the 
problem  immediately  becomes  more  complex.  Maximum  speed-made-good  then 
becomes  an  interactive  function  of  terrain  variations,  end  points 
specified,  and  the  path  selected.  (Note  that  the  last  two  constitute 
at  least  part  of  a detailed  mission  statement.)  As  a way  to  achieve  a 
useful  simulation  in  this  complicated  situation  the  INRMM  deliberately 

*Speed-made-good  between  two  points  is  the  straight-line  distance 
between  the  points  divided  by  total  travel  time,  irrespective  of  path. 
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simplifies  the  real  areal  terrain  into  a mosaic  of  terrain  units 
within  each  of  which  the  terrain  characteristics  are  considered 
sufficiently  uniform  to  permit  use  of  the  simple,  maximum 
straight-line  speed  of  the  vehicle  to  define  its  mobility  in,  along, 
or  across  that  terrain  unit.  A terrain  unit  or  segment  specified  for  a 
road  or  trail  is,  similarly,  considered  to  have  uniform 
characteristics  throughout  its  extent. 

Maximum  speed  predictions  are  made  for  each  terrain  unit 
without  concern  for  whether  or  not  distances  within  the  unit  are 
adequate  to  permit  the  vehicle  to  reach  the  predicted  maximum.  This 
vehicle  and  terrain-specific  speed  prediction  is  the  basic  output  of 
the  model.  The  model,  in  addition,  generates  data  that  may  be  used  to 
predict  operational  vibration  levels,  mission  fuel  consumption,  etc., 
and  can  provide  diagnostic  information  as  to  the  factors  limiting 
speed  performance  in  the  terrain  unit. 

The  speed  and  other  performance  predictions  for  all  terrain 
units  in  an  area  can  be  incorporated  into  maps  that  specify  feasible 
levels  of  performance  that  a given  vehicle  might  achieve  at  all  points 
in  the  area.  At  this  point,  the  output  is  reasonably  general  and  is 
essentially  independent  of  mission  and  operational  scenario 
influences.  The  basic  data  constituting  the  maps  must  usually  be 
further  processed  to  meet  the  needs  of  specific  users.  These  needs 
vary  from  relatively  simple  statistics  or  indices  reflecting  overall 
vehicle  compatibility  with  the  terrain,  to  extensive  analyses 
involving  detailed  or  generalized  missions.  None  of  these  so  called 
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post-processors  is  included  as  part  of  the  INRMM. 
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C.  Overall  Structure  of  the  INRMM 

In  formulating  AMC-71,  it  was  recognized  that  its  ultimate 
usefulness  to  decision  makers  in  the  vehicle  development,  procurement, 
and  user  communities  would  depend  upon  its  realism  and  credibility. 

(See  Nuttall  and  Dugoff  (1973).)  These  perceived  requirements  led  to 
several  more  concrete  objectives  related  to  th'e  overall  structure  of 
the  model.  It  was  determined  that  the  model  should  be  designed  to: 

1.  Allow  validation  by  parts  and  as  a whole. 

2.  Make  a clear  distinction  between  engineering  predictions  and 
any  whose  outcome  depends  significantly  upon  human  judgment, 
with  the  latter  kept  visible  and  accessible  to  the  model 
user . 

3.  Be  updated  readily  in  response  to  new  vehicle  and 
vehicle-terrain  technology. 

4.  Use  measured  subsystem  performance  data  in  place  of 
analytical  predictions  when  and  as  available  and  desired. 

These  objectives,  plus  the  primary  goal  of  supporting  decision 
making  relating  to  vehicle  performance  at  the  several  levels,  clearly 
dictated  a highly  modular  structure  that  could  both  provide  and  accept 
data  at  the  subsystem  level,  as  well  as  make  predictions  for  the 
vehicle  as  a whole.  The  resulting  gross  structure  of  the  model  is 
illustrated  in  Figure  I.C.1. 

At  the  heart  of  the  model  are  three  independent  computational 
modules,  each  comprised  of  analytical  relations  derived  from 
laboratory  and  field  research,  suitably  coupled  in  the  particular  type 
of  operation.  These  are: 
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FIGURE  I.C.I 


SURFACE 

PROFILE- 


GENERAL  ORGANIZATION  OF  THE  INITIAL 
NATO  REFERENCE  MOBILITY  MODEL 


VEHICLE 
— OA,TA— 


OBSTACLE 
— SHAPE 


Vehicle 
Speed  — 


I 


VEHOYN 

1 

1 

Y W 

OBS78B 

Ride  Dynamics 
Module 

1 

1 

Obstacle  Crossing 
Modu 1 e 

Absorbed  Power  ' 
Vehicle  Acceleration ^ 


' Geometric  Interference 
Average  Force 
j Maximum  Force 


REPEAT  FOR  VARIOUS  SPEEDS 
AND  PROFILES  TO  FORMi 


REPEAT  FOR  VARIOUS  OBSTACLE 
SHAPES  TO  FORM! 


Table  of  RMS  ys.  Speed  at 
given  Absorbed  Power 

Table  of  Obstacle  Heights 
vs.  Vertical  Acceleration 


Table  of  Obstacle  Shapes  vs. 
Geometric  Interference 
Average  Force 
Maximum  Force 


VEHICLE  DATA  FILE 


Scenario 

File 

Control 

File 

Terrain  Data  FI le 
(Areal  Patches,  Road 
Segments,  and  Linear 
features) 

V 

_ 

NRHM  --  Control  and  I/O  Module 

. VPP  I I'FF 

Vehicle  Preprocessor  | Terrain  Preprocessor 


Terra  In 
Uni t vs . 
Speed 
etc . 


AREAL 

Areal 

Module 


Road 

Module 


Linear  Feature 
Module ■ 


The  Areal  Module,  which  computes  the  maximum  feasible  speed 
for  a single  vehicle  in  a single  areal  terrain  unit  (patch) 

The  Linear  Feature  Module,  which  computes  the  minimum 
feasible  time  for  a single  vehicle,  aided  or  unaided,  to 
cross  a uniform  segment  of  a significant  linear  terrain 
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feature  such  as  a stream,  ditch,  or  embankment  (not  currently 
available) . 

3.  The  Road  Module,  which  computes  the  maximum  feasible  speed  of 
a single  vehicle  traveling  along  a uniform  segment  of  a road 
or  trail. 

These  Modules  and  the  Terrain  and  Vehicle  Preprocessors  are  collected 
in  a computer  program  called  NRMM  and  are  described  in  this  volume. 

These  three  Modules  may  be  used  separately  or  together. 
Alternately,  INRMM  has  the  ability  to  simulate  travel  from  terrain 
unit  to  terrain  unit  in  the  sequence  given  by  the  terrain  input  file. 
In  this  mode,  known  as  the  traverse  mode,  sufficient  output  data  can 
be  provided  so  that  the  user  may  calculate  acceleration  and 
deceleration  times  and  distances  between  and  across  terrain  unit 
boundaries,  and  thereby  determine  actual  travel  time  and 
speed-made-good  over  a chosen  route. 

All  three  modules  draw  from  a common  data  base  that  describes 
quantitatively  the  vehicle,  the  driver,  and  the  terrain  to  be  examined 
in  the  simulation.  The  general  content  of  the  data  base  is  shown  in 


Table  I.C. 1 . 
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TABLE  I.C. 1 

Terrain,  Vehicle,  Driver  Attributes  Characterized  in  INRMM 

Data  Base 

Terrain  Vehicle  Driver 


Surface  Composition  Geometric 

Type  characteristics 

Strength 

Inertial 

Surface  Geometry  characteristics 

Slope 

Altitude  Mechanical 

Discrete  Obstacles  characteristics 

Roughness 

Road  Curvature 

Road  Width 

Road  Superelevation 


Reaction  Times 

Recognition  distance 

Acceleration  and 
impact  tolerances 

Minimum  acceptable 
speeds 


Vf  getation 
Stem  Size 
Stem  Spacing 

Linear  Geometry 

Stream  cross  section 
Water  velocity 
, Water  depth 
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D.  Model  Inputs  and  Preprocessors 


1.  Terrain 

For  the  purposes  of  the  model,  each  terrain  unit  is  described 
at  any  given  time  by  values  for  a series  of  22  mathematically 
independent  terrain  factors  for  an  areal  unit  (including  lake  and 
marsh  factors),  10  for  the  cross  section  of  a linear  feature  to  be 
negotiated,  and  9 to  quantify  a road  segment  . General-purpose  terrain 
data  also  include  separate  values  for  several  terrain  factor  values 
that  vary  during  the  year.  For  example,  at  present  such  general  data 
for  areal  terrain  include  four  values  for  soil  strength  (dry,  average, 
wet,  and  wet-wet  seasons)  and  four  seasonal  values  for  recognition 
distances  in  vegetated  areas.  Similar  variations  in  effective  ground 
roughness,  resulting  from  seasonal  changes  in  soil  moisture  (including 
freezing)  and  in  the  cultivation  of  farm  land,  can  be  envisioned  for 
the  future.  Further  details  on  the  terrain  factors  used  are  given  in 
Rula  and  Nuttall  ( 1975) • 


As  discussed  earlier,  the  basic  approach  to  representing  a 
complex  terrain  is  to  subdivide  it  into  areal  patches,  linear  feature 
segments,  or  road  segments,  each  of  which  can  be  considered  to  be 
uniform  within  its  bounds.  Besides  supplying  actual  values  for  the 
terrain  factors,  this  concept  may  be  implemented  by  dividing  the  range 
of  each  individual  terrain  factor  value  into  a number  of  class 
intervals,  based  upon  considerations  of  vehicle  response  sensitivity 
an  1 practical  measurement  and  mapping  resolution  problems.  A patch  or 
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a segment  is  then  defined  by  the  condition  that  the  class  interval 
designator  for  each  factor  involved  is  the  same  throughout.  A new 
patch  or  segment  is  defined  whenever  one  or  more  factors  fall  into  a 
new  class  interval. 


Before  being  used  in  the  three  computational  Modules,  the  basic 
terrain  data  are  passed  through  a Terrain  Data  Preprocessor,  called 
TPP,  in  the  Computer  Program  NRMM.  This  preprocessor  does  three 
things: 


1.  Converts  as  necessary  all  data  from  the  units  in  which  they 
are  stored  to  inches,  pounds,  seconds  and  radians,  which  are 
used  throughout  the  subsequent  performance  calculations. 

2.  Selects  prestored  soil  strengths  and  visibility  distances 
according  to  run  specifications,  which  are  supplied  as  part 
of  the  scenario  data  (see  belowK 

3.  Calculates  from  the  terrain  measurements  in  the  basic  terrain 
data  a small  number  of  mathematically  dependent  terrain 
variables  used  repeatedly  in  the  computational  modules. 


2.  Vehicle 

The  vehicle  is  specified  in  the  vehicle  data  base  in  terms  of 
its  basic  geometric,  inertial,  and  mechanical  characteristics.  The 
complete  vehicle  characterization  as  used  by  the  performance 
computation  modules  includes  measures  of  dynamic  response  to  ground 
roughness  and  obstacle  impact,  and  the  clearance  and  traction 
requirements  of  the  vehicle  while  it  is  negotiating  a parametric 
series  of  discrete  obstacles. 


R-2058,  VOLUME  I 
Operational  Modules 


Page  14 


The  model  structure  permits  use  at  these  points  of  appropriate 
data  derived  either  from  experiments  or  from  supporting  stand-alone 
simulations  used  as  preprocessors.  Available  as  modules  of  the  INRMM 
is  a two-dimensional  ride  and  obstacle  crossing  Dynamics  Module  for 
obtaining  requisite  dynamics  responses  (currently  called  VEHDYN  and 
described  in  Volume  III)  and  an  Obstacle  Module  for  computing  obstacle 
crossing  traction  requirements  and  interferences  (currently  called 
OBS78B  and  described  in  Volume  II).  Both  derive  some  required 
information  from  the  basic  vehicle  data  base,  and  both,  when  used, 
constitute  stand-alone  vehicle  data  preprocessors. 

There  is  also  a Vehicle  Data  Preprocessor  called  VPP  (integral 
to  NRMM)  which,  like  the  Terrain  Data  Preprocessor,  has  three 
functions : 


1.  Conversion  of  vehicle  input  data  to  uniform  inches,  pounds, 
seconds,  and  radians. 

2.  Calculation,  from  the  input  data,  of  controlling  soil 
performance  parameters  and  other  simpler  dependent  vehicle 
variables  subsequently  used  by  the  computational  modules,  but 
usually  not  readily  measured  on  a vehicle  or  available  in  its 
engineering  specifications. 

3.  Computation  of  the  basic  steady-state  traction  versus  speed 
characteristics  of  the  vehicle  power  train,  from  engine  and 
power  train  characteristics. 


As  in  the  case  of  dynamic  responses  and 
the  last  item,  the  steady-state  tractive  force 
input  directly  from  proving  ground  data,  when 


obstacle  capabilities, 
-speed  relation,  may  be 
available  and  desired. 
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3.  Driver 

The  driver  attributes  used  in  the  model  characterize  the  driver 
in  terms  of  his  limiting  tolerance  to  shock  and  vibration  and  his 
ability  to  perceive  and  react  to  visual  stimuli  affecting  his 
behaviour  as  a vehicle  controller.  While  these  attributes  are 
identified  in  Figure  I.C.1  and  Table  I.C.1  as  part  of  the  data  base 
INRMM  provides  for  their  specific  identification  and  user  control  so 
that  the  effects  of  various  levels  of  driver  motivation,  associated 
with  combat  or  tactical  missions,  for  example,  can  be  considered. 

4.  Scenario 

Several  optional  features  are  available  to  the  user  of  the 
INRMM  (weather,  presumed  driver  motivation,  operational  variations  in 
tire  inflation  pressure)  which  allow  the  user  to  match  the  model 
predictions  to  features  or  assumptions  of  the  full  operational 
scenario  for  which  predictions  are  required.  Model  instructions  which 
select  and  control  these  options  are  referred  to  as  scenario  inputs. 

The  scenario  options  include  the  specification  of: 

1.  Season,  which,  when  seasonal  differences  in  soil  strength 
constitute  a part  of  the  terrain  data,  allows  selection  of 
the  soil  strength  according  to  the  variations  in  soil 
moisture  with  seasonal  rainfall,  and 

2.  Weather,  which  affects  soil  slipperiness  and  driving 
visibility,  (including  dry  snow  over  frozen  ground  and 
associated  conditions). 


3. 


Several  levels  of  operational  influences  on  driver  tolerances 
to  ride  vibrations  and  shock,  and  on  driver  strategy  in 


R-2058,  VOLUME  I 
Operational  Modules 


Page  16 


negotiating  vegetation  and  using  brakes. 

4.  Reasonable  play  of  tire  pressure  variations  to  suit  the  mode 
of  operation — on-road,  cross-country,  and  in  sand. 
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E.  Stand-Alone  Simulation  Modules 

As  indicated  above,  the  Model  is  implemented  by  a series  of 
independent  Modules.  The  Terrain  and  Vehicle  Preprocessors,  already 
described,  form  two  of  these.  Two  further  major  stand-alone  simulation 
Modules  will  now  be  outlined. 

1.  Obstacle-crossing  Module-OBS78B 

This  Module  determines  interferences  and  traction  requirements 
when  vehicles  are  crossing  the  kind  of  minor  ditches  and  mounds 
characterized  as  part  of  the  areal  terrain;  it  is  described  fully  in 
Volume  II.  It  is  used  as  a stand-alone  Preprocessor  Module  to  the 
Areal  Module  of  INRMM. 

The  Obstacle-crossing  Module  simulates  the  inclination  and 
position,  interferences,  and  traction  requirements  of  a 
two-dimensional  (vertical  center-line  plane)  vehicle  crossing  a single 
obstacle  in  a trapezoidal  shape  as  a mound  or  a ditch.  The  module 
determines  a series  of  static  equilibrium  positions  of  the  vehicle  as 
it  progresses  across  the  obstacle  profile.  Extent  of  interference  is 
determined  by  comparison  of  the  obstacle  profile  and  the  displaced 
vehicle  bottom  profile.  Traction  demand  at  each  position  is  determined 
by  the  forces  on  driven  running  gear  elements,  tangential  to  the 
obstacle  surface,  required  to  maintain  the  vehicle’s  static  position. 
Pitch  compliance  of  suspension  elements  is  not  accounted  for  but  frame 
articulation  (as  at  pitch  joints,  trailer  hitches,  etc)  is  permitted. 
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The  Obstacle-crossing  Module  produces  a table  of  minimum 
clearances  (or  maximum  interferences)  and  average  and  maximum  force 
required  to  cross  a representative  sample  of  obstacles  defined  by 
combinations  of  obstacle  dimensions  varied  over  the  ranges  appropriate 
for  features  included  in  the  areal  terrain  description.  This 
simulation  is  done  only  once  for  each  vehicle.  Included  in  the  INRMM 
Areal  Module  is  a three-dimensional  linear  interpolation  routine 
which,  for  any  given  set  of  obstacle  parameters,  approximates  from  the 
derived  table  the  corresponding  vehicle  clearance  (or  interference) 
and  associated  traction  requrements.  Obviously,  the  more  entries  there 
are  in  the  table,  the  more  precise  will  be  the  determination. 

2.  Ride  Dynamics  Module-  VEHDYN 

The  Areal  Module  examines  as  possible  vehicle  speed  limits  in  a 
given  terrain  situation  two  limits  which  are  functions  of  vehicle 
dynamic  perceptions:  speed  as  limited  by  the  driver's  tolerance  to  his 
vibrational  environment  when  the  vehicle  is  operating  over 
continuously  rough  ground,  and  speed  as  limited  by  the  driver's 
tolerance  to  impact  received  while  the  vehicle  is  crossing  discrete 
obstacles.  It  is  assumed  that  the  driver  will  adjust  his  speed  to 
ensure  that  his  tolerance  levels  will  not  be  exceeded. 

The  Ride  Dynamics  Module  of  INRMM,  called  VEHDYN  and  described 
in  Volume  III,  computes  accelerations  and  motions  at  the  driver's 
station  (and  other  locations,  if  desired)  while  the  vehicle  is 
operating  at  a given  speed  over  a specific  terrain  profile.  The 
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profile  may  be  continuously,  randomly  rough,  may  consist  solely  of  a 
single  discrete  obstacle,  uniformly  spaced  obstacles  of  a specific 


height  or  may  be  anything  in  between.  From  the  computed  motions, 


associated  with  driver  modeling  and  specified  tolerance  criteria, 
simple  relations  are  developed  for  a given  vehicle  between  relevant 
terrain  measurements  and  maximum  tolerable  speed.  The  terrain 
measurement  to  which  ride  speed  is  related  is  the  root  mean  square 
(rms)  elevation  of  the  ground  profile  (with  terrain  slopes  and 
long-wavelength  components  removed).  The  terrain  descriptors  for 
obstacles  are  obstacle  height  and  obstacle  spacing. 

The  terrain  parameters  involved,  rms  elevation  and  obstacle 
height  and  spacing,  are  factors  quantified  in  each  patch  description, 
and  rms  elevation  is  specified  for  each  road  segment.  Preprocessing  of 
the  vehicle  data  in  the  ride  dynamics  module  provides  an  expedient 
means  of  predicting  dynamics-based  speed  in  the  patch  and  road  segment 
modules  via  a simple,  rapid  table-lookup  process. 

The  currently  implemented  Ride  Dynamics  Module  is  a digital 
simulation  that  treats  vehicle  motions  in  the  vertical  center-line 
plane  only  (two  dimensions).  It  is  a generalized  model  that  will, 
handle  any  rigid-frame  vehicle  on  tracks  and/or  tires,  with  any 
suspension.  Tires  are  modeled  using  a segmented  wheel  representation, 
(see  Lessem  (1968))  and  a variation  of  this  representation  is  used  to 
introduce  first-order  coupling  of  the  road  wheels  on  a tracked  vehicle 
by  its  tracks. 


R-2058,  VOLUME  I 
Operational  Modules 


Page  20 


a)  Driver  model  and  tolerance  criteria. 

It  has  been  shown  empirically  that,  in  the  continuous  roughness 
situation,  driver  tolerance  is  a function  of  the  vibrational  power 
being  absorbed  by  the  body.  (See  Pradko,  Lee  and  Kaluza  (1966).)  The 
same  work  showed  that  the  tolerance  limit  for  representative  young 
American  males  is  approximately  6 watts  of  continuously  absorbed 
power,  and  the  research  resulted  in  a relatively  simple  model  for 
power  absorption  by  the  body.  The  body  power  absorption  model,  based 
upon  shaping  filters  applied  to  the  decomposed  acceleration  spectrum 
at  the  driver's  station,  is  an  integral  part  of  the  INRMM 
two-dimensional  dynamics  simulation. 

In  the  past,  only  the  6 watt  criterion  was  used  to  determine  a 
given  vehicle's  speed  as  limited  by  rms  roughness.  More  recent 
measurements  in  the  field  have  shown  that  with  sufficient  motivation 
young  military  drivers  will  tolerate  more  than  6 watts  for  periods  of 
many  minutes.  Accordingly,  INRMM  will  accept  as  vehicle  data  a series 
of  ride  speed  versus  rms  elevation  relations,  each  corresponding  to  a 
different  absorbed  power  level,  and  will  use  these  to  select 
ride-speed  limits  according  to  the  operationally  related  level  called 
for  by  the  scenario.  The  Ride  Dynamics  Module  will,  of  course,  produce 
the  required  additional  data,  but  some  increased  running  time  is 
involved. 

The  criterion  limiting  the  speed  of  a vehicle  crossing  a single 
discrete  obstacle,  or  a series  of  closely,  regularly  spaced  obstacles. 
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is  a peak  acceleration  at  the  driver's  seat  of  2.5-g  passing  a 30-Hz. 
filter.  Data  relating  the  2.5-g  speed  limit  to  obstacle  height  and 
spacing  can  be  developed  in  the  ride  dynamics  module  by  inputting 
appropriate  obstacle  profiles. 

INRMM  requires  two  obstacle  impact  relations:  the  first,  speed 
versus  obstacle  height  for  a single  obstacle  (spacing  very  great);  and 
the  second,  speed  versus  regular  obstacle  spacing  for  that  single 
obstacle  height  (from  the  single  obstacle  relation)  which  limits 
vehicle  speed  to  a maximum  of  15  mph.  For  obstacles  spaced  at  greater 
than  two  vehicle  lengths,  the  single-obstacle  speed  versus  obstacle 
height  relation  is  used.  For  closer  spacings,  the  least  speed 
allowable  by  either  relation  is  selected. 

3.  Main  Computational  Modules  - NRMM 

The  highly  iterative  computations  required  to  predict  vehicle 
performance  in  each  of  the  many  terrain  units  needed  to  describe  even 
limited  geographic  areas  are  carried  out  in  the  three  main 
computational  modules.  Each  of  these  involve  only  direct  arithmetic 
algorithms  which  are  rapidly  processed  in  modern  computers.  In  INRMM, 
even  the  integrations  required  to  compute  acceleration  and 
deceleration  between  obstacles  within  an  areal  patch  are  expressed  in 
closed,  algebraic  form. 

Terrain  input  data  include  a flag,  which  signifies  to  the  model 
whether  the  data  describes  an  areal  patch,  a linear  feature  segment. 
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or  a road  segment.  This  flag  calls  up  the  appropriate  computational 
Module . 

a)  Areal  Terrain  Unit  Module 

This  Module  calculates  the  maximum  average  speed  a vehicle 
could  achieve  and  maintain  while  crossing  an  areal  terrain  unit.  The 
speed  is  limited  by  one  or  a combination  of  the  following  factors: 

1.  Traction  available  to  overcome  the  combined  resistances  of 
soil,  slope,  obstacles,  and  vegetation. 

2.  Driver  discomfort  in  negotiating  rough  terrain  (ride  comfort) 
and  his  tolerance  to  vegetation  and  obstacle  impacts. 

3.  Driver  reluctance  to  proceed  faster  than  the  speed  at  which 
the  vehicle  could  decelerate  to  a stop  within  the,  possibly 
limited,  visibility  distance  prevailing  in  the  areal  unit 
(braking-visibility  limit). 

4.  Maneuvering  to  avoid  trees  and/or  obstacles. 

5.  Acceleration  and  deceleration  between  obstacles  if  they  are 
to  be  overriden. 

6.  Damage  to  tires. 

Figure  I.E.1  shows  a general  flow  chart  of  how  the  calculations  of  the 
Areal  Module  are  organized. 

After  determination  of  some  vehicle  and  terrain  - dependent 
factors  used  repetitively  in  the  patch  computation  (1),*  the  Module  is 
entered  with  the  relation  between  vehicle  steady-state  speed  and 
theoretical  tractive  force  and  with  the  minimum  soil  strength  that  the 
vehicle  requires  to  maintain  headway  on  level,  weak  soils.  These  data 

* Numbers  in  parentheses  correspond  to  numbers  in  Figure  I.E.1. 
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FIGURE  I.E.l  — GENERAL  FLOW  OF  INRMM  AREAL  MODULE 
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are  provided  by  the  vehicle  data  preprocessor.  Soil  and  slope 
resistances  (2)  and  braking  force  limits  (4)  are  computed,  and  the 
basic  tractive  force-speed  relation  is  modified  to  account  for 
soil-limited  traction,  soil  and  slope  resistances,  and  resulting  tire 
or  track  slip.  Forces  required  to  override  prevailing  tree  stems  are 
calculated  for  eight  cases  (3):  first,  overriding  only  the  smallest 
stems,  then  overriding  the  next  largest  class  of  stems  as  well,  etc., 
until  in  the  eighth  case  all  stems  are  being  overridden. 

Stem  override  resistances  are  combined  with  the  modified 
tractive  force-speed  relation  to  predict  nine  speeds  as  limited  by 
basic  resistances  (5).  (The  ninth  speed  corresponds  to  avoiding  all 
tree  stems.) 

Maximum  braking  force  and  recognition  distance  are  combined  to 
compute  a visibility-limited  speed  (6).  Resistance  and 
visibility-limited  speeds  are  compared  to  the  speed  limited  by  tire 
loading  and  inflation  (7),  if  applicable,  and  to  the  speed  limit 
imposed  by  driver  tolerance  to  vehicle  motions  resulting  from  ground 
roughness  (8).  The  least  of  these  speeds  for  each  tree 
override-and-avoid  option  becomes  the  maximum  speed  possible  between 
obstacles  by  that  option,  except  for  degradation  due  to  maneuvering 
(9). 


Obstacle  avoidance  and/or  the  tree  avoidance  implied  by  limited 
stem  override  requires  the  vehicle  to  maneuver  (or  may  be  impossible). 
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Using  speed  reduction  factors  (derived  in  1)  associated  with  avoiding 
all  obstacles  (if  possible)  and  avoiding  the  appropriate  classes  of 
tree  stems,  a series  of  nine  possible  speeds  (possibly  including  zero, 
or  NOGO)  is  computed  (10). 


A similar  set  of  nine  speed  predictions  is  made  for  the  vehicle 
maneuvering  to  avoid  tree  stems  only  (10).  These  are  further  modified 
by  several  obstacle  crossing  considerations. 


Possible  NOGO  interference  between  the  vehicle  and  the  obstacle 
is  checked  (12).  If  obstacle  crossing  proves  to  be  NOGO,  all 
associated  vegetation  override  and  avoid  options  are  also  NOGO.  If 
there  are  no  critical  interferences,  the  increase  in  traction  required 
to  negotiate  the  obstacle  is  determined  (12). 


Next,  obstacle  approach  speed  and  the  speed  at  which  the 
vehicle  will  depart  the  obstacle,  as  a result  of  the  momentarily  added 
resistance  encountered,  are  computed  (13)-  Obstacle  approach  speed  is 
taken  as  the  lesser  of  the  speed  between  obstacles,  reduced  for 
maneuver  required  by  each  stem  override  and  avoid  option,  and  the 
speed  limited  by  the  driver  to  control  his  crossing  impact  (11). 

Speeds  off  the  obstacle  are  computed  on  the  basis  solely  of  the 
soil-and  slope-modified  tractive  force-speed  relation  (22),  i.e. 
before  the  tractive  force  speed  relation  is  modified  to  account  for 
vegetation  override  forces,  the  traction  increment  required  for 
obstacle  negotiation,  or  any  kinetic  energy  available  as  a result  of 
the  associated  obstacle  approach  speed  (13). 
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Final  average  speed  in  the  patch  for  each  of  the  nine  tree  stem 
override  and  avoid  options,  while  the  vehicle  is  overriding  patch 
obstacles,  is  computed  from  the  speed  profile  resulting,  in  general, 
from  considering  the  vehicle  to  accelerate  from  the  assigned  speed  off 
the  obstacle  to  the  allowable  speed  between  obstacles  (or  to  a lesser 
speed  if  obstacle  spacing  is  insufficient),  to  brake  to  the  allowable 
obstacle  approach  speed,  and  to  cross  the  obstacle  per  se  at  the 
computed  crossing  speed. 

Following  a final  check  to  ensure  that  traction  and  kinetic 
energy  are  sufficient  for  single-tree  overrides  required  (and  possible 
resetting  of  speeds  for  some  options  to  NOGO)  a single  maximum 
in-patch  speed  (for  the  direction  of  travel  being  considered  relative 
to  the  in-unit  slope)  is  selected  from  among  the  nine  available  values 
associated  with  obstacle  avoidance  and  the  nine  for  the  obstacle 
override  cases.  If  all  18  options  are  NOGO,  the  patch  is  NOGO  for  the 
direction  of  travel.  If  several  speeds  are  given,  selection  is  made  by 
one  of  two  logics  according  to  scenario  input  instructions. 

In  the  past  the  driver  was  assumed  to  be  both  omniscient  and 
somewhat  mad.  Accordingly,  the  maximum  speed  possible  by  any  of  the  18 
strategies  was  selected  as  the  final  speed  prediction  for  the  terrain 
unit  (and  slope  direction).  Field  tests  have  shown,  however,  that  a 
driver  does  not  often  behave  in  this  ideal  manner  when  driving  among 
trees.  Rather,  he  will  take  heroic  measures  to  reach  some  reasonable 
minimum  speed,  but  will  not  continue  such  efforts  when  those  measures 
involve  knocking  down  trees  that  he  judges  it  imprudent  to  attack. 
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even  though  by  doing  so  he  could  go  still  faster.  In  INRMM,  either 
assignment  of  maximum  speed  may  be  made:  the  absolute  maximum  which 
addresses  the  vehicle's  ultimate  potential,  or  a lesser  value  which  in 
effect  more  precisely  models  actual  driver  behavior. 

If  the  scenario  data  specify  a traverse  prediction,  the  in-unit 
speed  and  other  predictions  are  complete  at  this  point,  and  the  model 
stores  those  results  specified  by  the  user  and  goes  on  to  consider  the 
next  terrain  unit  (or  next  vehicle,  condition,  etc).  When  a full  areal 
prediction  is  called  for,  the  entire  computation  is  repeated  three 
times:  once  for  the  vehicle  operating  up  the  in-unit  slope,  once 
across  the  slope,  and  once  down  the  slope.  Desired  data  are  stored 
from  each  such  run  prior  to  the  next,  and  at  the  conclusion  of  the 
third  run,  the  three  speeds  are  averaged.  Averaging  is  done  on  the 
assumption  that  one-third  of  the  distance*  will  be  travelled  in  each 
direction,  resulting  in  an  omnidirectional  mean. 


* the  average 
speeds , i .e . 


V 


av  ■ 


speed,  Vgy , is  the  harmonic  average  of  the  three 

3/C(l/V^p)  + (1/VgQj-Qgg)  + 
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b)  Road  Module 

The  Road  Module  calculates  the  maximum  average  speed  a vehicle 
can  be  expected  to  attain  traveling  along  a nominally  uniform  stretch 
of  road,  termed  a road  unit.  Travel  on  super  highways,  primary  and 
secondary  roads,  and  trails  is  distinguished  by  specifying  a road  type 
and  a surface  condition  factor.  From  these  characteristics,  values  of 
tractive  and  rolling  resistance  coefficients  for  wheeled  and  tracked 
vehicles  on  hard  surfaced  roads  are  determined  by  a table  look-up.  For 
trails,  surface  condition  is  specified  in  terms  of  cone  index  (Cl)  or 
rating  cone  index  (RCI).  Traction,  motion  resistance,  and  slip  are 
computed  using  the  soil  submodel  of  the  Areal  Module,  with  scenario 
weather  factors  used  in  the  same  way  as  in  making  off-road 
predictions . 

The  relations  used  for  computing  vehicle  performance  on  smooth, 
hard  pavements  are  taken  from  the  literature  (Smith  (1970)  and  Taborek 
(1957)). 

The  structure  of  the  Road  Module,  while  much  simpler,  parallels 
that  of  the  Areal  Module.  Separate  speeds  are  computed  as  limited  by 
available  traction  and  countervailing  resistances  (rolling, 
aerodynamic,  grade,  and  curvature),  by  ride  dynamics  (absorbed  power), 
by  visibility  and  braking,  by  tire  load,  inflation  and  construction, 
and  by  road  curvature  per  se  (a  feature  not  directly  considered  in  the 
Areal  Module).  The  least  of  these  five  speeds  is  assigned  as  the. 
maximum  for  the  road  unit  (for  the  assumed  direction  relative  to  the 
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specified  grade) . 

The  basic  curvature  speed  limits  are  derived  from  American 
Association  of  State  Highway  Officials  (AASHO)  experience  data  for  the 
four  classes  of  roads  (AASHO  (1975))  under  dry  conditions  and  are  not 
vehicle  dependent.  These  are  appropriately  reduced  for  reduced 
traction  conditions,  and  vehicle  dependent  checks  are  made  for  tipping 
or  sliding  while  the  vehicle  is‘  in  the  curve. 

At  the  end  of  a computation,  data  required  by  the  user  are 
stored.  If  the  model  is  run  in  the  traverse  mode,  the  model  returns  to 
compute  values  for  the  next  unit;  if  in  the  areal  mode,  it 
automatically  computes  performance  for  both  the  up-grade  and 
down-grade  situations  and  at  the  conclusion  computes  the  bidirectional 
(harmonic)  average  speed.  Scenario  options  are  similar  to  those  for 
the  Areal  Module. 
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II  ALGORITHMS  AND  EQUATIONS 

The  INRMM  has  been  implemented  in  a computer  program  called 
NRMM,  written  in  FORTRAN  Extended,  version  4.6,  for  the  CDC  6600 
computer.  The  description  of  the  Operational  Modules  which  follows 
occasionally  refers  to  particular  aspects  of  this  implementation. 

A.  Control  and  I/O  Module 

The  Control  and  I/O  Module  (C&I/O)  of  NRMM  consists  of  a main 
program  and  several  subroutines  which  control  the  flow  between  vehicle 
and  terrain  input  and  the  two  operational  modules  for  patches  (Areal 
terrain  units)  and  roads.  It  is  also  responsible  for  output.  An 
overall  illustration  of  the  Control  and  I/O  Module  is  given  in  Figure 
II. A. 1. 


After  initialization  and  setting  of  variables  to  their  default 
values,  the  program  opens  the  files  required.  It  then  calls  subroutine 
SCN  to  read  the  control  variables,  which  determine  how  the  program  is 
to  operate,  and  the  scenario  variables,  -which  determine  conditions  of 
the  simulation. 

The  program  then  calls  subroutine  VEH,  which  reads  the  vehicle 
data,  and'  subroutine  VPP,  the  Vehicle  Preprocessor,  which  calculates 
vehicle  descriptors  derived  from  the  vehicle  input  data,  some  of  which 
depend  on  values  of  scenario  variables.  Details  of  these  calculations 
are  given  in  the  next  section.  Section  II. B. 
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The  program  then  enters  the  terrain  loop;  that  is,  it  reads  the 
descriptors  of  the  terrain  unit  under  control  of  subroutine  TERTL  and 
its  subroutines  MAP7I,  MAP74,  MPRD74,  calculates  several  terrain 
descriptors  derived  from  the  primary  terrain  input  data,  some  of  which 
also  depend  on  values  of  scenario  variables.  The  program  then  selects 
the  appropriate  operational  module,  AREAL  or  ROAD,  and  calculates  the 
speed  the  vehicle  could  be  expected  to  go  on  that  terrain  unit.  The 
program  returns  to  TERTL  and  repeats  these  calculations  if  there  is 
more  terrain  data.  If  not,  the  program  exits. 
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There  are  two  options  that  restrict  the  loop  to  a single 
terrain  unit  other  than  if  only  one  terrain  unit  is  present  in  the 
terrain  input  file.  Setting  control  variable  SEARCH  to  1 indicates 
that  a single  terrain  unit,  whose  terrain  unit  number  is  given  by 
NTUX,  is  to  be  sought  in  the  terrain  input  file  and  that  the  mobility 
model  calculations  are  to  be  performed  for  that  one  unit  only.  Control 
variable  DETAIL  indicates  to  what  level  of  detail  the  output  is  to  be 
written.  The  following  actions  are  taken  for  various  values  of  DETAIL. 


1.  DETAIL  = 1:  only  the  output  from  BUFFO  is  written  - this 

consists  of  terrain  unit  identification,  grade, 
and  maximum  and  selected  speeds  only. 

2.  DETAIL  = 2,3  or  4:  above  output  is  written.  Also  control, 

scenario  and  vehicle  input  is  echoed,  and  output 
from  the  vehicle  Preprocessor  is  written. 

3.  DETAIL  = 5 : results  from  almost  all  intermediate 

calculations  are  written.  A printer-plot  of  the 
tractive  effort  vs.  speed  relationship  is 
generated  and  program  execution  is  terminated 
after  the  vehicle  preprocessor. 

4.  DETAIL  = 10:  Results  from  almost  all  intermediate 

calculations  are  written. 


Setting  DETAIL  to  10  results  in  a large  volume  of  output.  A check  is 
made  in  the  C&I/O  Module  and  if  DETAIL  = 10  an  exit  is  made  after 
execution  on  one  terrain  unit. 


The  individual  subroutines  of  the  C&I/O  Module  will  now  be 


described  briefly. 
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1.  Subroutine  SON  - Scenario  and  Control  Input 

This  subroutine  sets  default  values  for  the  scenario  variables 
(see  Section  III.D)  and  then  reads  the  control  variables.  These 
consist  of  flags  controlling  writing  of  output  for  the  entire  program 
and  individual  routines,  and  the  single  terrain  unit  search  described 
above.  Then  the  scenario  variables  are  read,  echoed  if  the  appropriate 
flag  (KSCEN)  was  set  to  1,  and  converted  to  standard  units  as 
necessary. 

2.  Subroutine  VEH  - Vehicle  Input 

This  subroutine  reads  the  vehicle  parameters  as  described  in 
Section  III.B.1  below  and  echoes  them  if  the  flag  KVEH  is  set  to  1. 

3.  Subroutine  VPP  - Vehicle  Preprocessor  Control 

This  is  the  Vehicle  Preprocessor  control  program.  It  consists 
solely  of  a series  of  calls  to  Subroutines  III,  II2,,..,II17  and 
output  statement  executions  as  the  flags  Kill,  KII2,  . . . ,Kin7  are  set. 
If  DETAIL  = 5,  a printer  plot  describing  the  vehicle  power  train  is 
written  using  Subroutine  PLTSET. 

4.  Subroutine  TERTL  - Terrain  Translator 

This  subroutine  controls  the  terrain  data  inputs.  Since  terrain 
files  are  often  large  and  the  results  of  long  and  expensive  effort. 
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users  will  be  reluctant  to  re-format  their  existing  data  to  use  the 
NRMM.  Instead,  the  user  may  write  a FORTRAN  subroutine  which  reads 
the  existing  files  and  adjusts  the  data  to  satisfy  the  terrain  data 
requirements  of  NRMM.  Calls  to  these  subroutines  are  controlled  by  a 
Control/Scenario  variable  called  MAP.  Three  terrain  data  input 
routines  are  currently  part  of  NRMM: 


i)  Subroutine  MAP7I,  called  if  MAP  is  not  equal  to  one  of  the 
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values  below, 

ii)  Subroutine  MAP74,  called  if  MAP  = 74, 

iii)  Subroutine  MPRD74,  called  if  MAP  = 11. 

If  the  user  writes  a terrain  input  routine,  called  MXXXXX,  for 
an  existing  data  file,  a unique,  new  value  of  MAP  must  be  assigned  and 
an  appropriate  IF,  CALL  and  echo  write  (if  desired)  need  to  be  added 
to  Section  2.,  ALGORITHM,  in  Subroutine  TERTL.  Care  must  be  taken 
that  this  new  subroutine,  MXXXXX,  provides  values  for  the  complete 
list  of  terrain  variables  required  by  NRMM. 

Each  of  the  terrain  data  input  subroutines  must  contain  a check 
for  end  of  terrain  data.  The  existing  routines  use  the  CDC  run-time 
FORTRAN  function  subprogram  called  EOF  which  returns  a value  of  1 if 
the  READ  tried  to  read  a record  but  found  an  end-of-file  instead.  In 
this  case  the  terrain  input  subroutines  set  the  flag  lEOF  = 1 which  is 
passed  through  TERTL  to  the  C&I/O  main  program;  whereupon  the  NRMM  run 
will  terminate. 

If  another  terrain  unit  was  read,  TERTL  will  call  Subroutine 
TPP,  the  Terrain  Preprocessor,  described  in  Section  II. C.  below,  and 
will  write  the  results  if  the  flag  KTPP  is  set.  TERTL  then  returns. 

a)  Terrain  Input/Translation  Subroutine  MAP74 

This  subroutine  reads  a record  for  each  terrain  unit  consisting 
of  actual  terrain  descriptors.  These  include  various  values  for  cone 
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index,  grade,  obstacle  geometry  and  spacing,  surface  roughness, 
spacing  of  vegetation  in  eight  stem  diameter  classes,  and  various 
values  of  recognition  distance.  The  particular  value  of  cone  index  and 
recognition  distance  chosen  depend  on  the  scenario  variables  ISEASN 
and  MONTH,  respectively.  The  format  of  the  data  to  be  read  by  this 
subroutine  is  described  in  Section  III.C.2. 

The  input  record  also  contains  NTU,  the  terrain  unit  number. 

If  SEARCH  = 1 (that  is,  a particular  terrain  unit  is  sought),  MAP74 
will  continue  to  read  terrain  unit  records,  discarding  those  for  which 
NTU  differs  from  NTUX.  Only  when  a record  is  read  for  which  NTU  = 

NTUX  will  MAP74  return  to  TERTL. 

b)  Terrain  Input/Translation  Subroutine  MPRD74 

This  subroutine  was  designed  to  read  records  describing  roadway 
units,  including  trails  compiled  for  a particular  study.  For  this 
study  the  speed  limits  imposed  by  horizontal  curvature  were  included 
as  terrain  data.  Since  the  Road  Module  required  road  curvature  as  the 
descriptor,  this  routine  translates  the  curvature  speed  limit  back  to 
curvature. 

The  routine  first  establishes  a table  relating  curvature  to 
maximum  speed  for  four  classes  of  roads:  superhighways,  primary 
roads,  secondary  roads,  and  trails.  Then  MPRD74  reads  a record  of 
actual  values  describing  the  roadway,  including  cone  indexes,  grade, 
recognition  distances,  surface  roughness,  curvature  speed  limit. 
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coefficient  of  friction,  superelevation,  and  a surface  condition 
factor.  The  curvature  vs.  speed  table  is  then  interpolated  to  set  a 
curvature  based  on  the  curvature  speed  of  the  actual  roadway  unit.  The 
format  of  the  data  to  be  read  by  this  subroutine  is  described  in 
Section  III.C.3- 

The  input  record  also  contains  NTU,  the  terrain  unit  number. 

If  SEARCH  = 1 (that  is,  a particular  roadway  unit  is  sought),  MPRD74 
will  continue  to  read  roadway  unit  records,  discarding  those  for  which 
NTU  differs  from  NTUX.  Only  when  a record  for  which  NTU  = NTUX  is  read 
will  MPRD74  process  the  data  and  then  return  to  TERTL. 

c)  Terrain  Input/Translation  Subroutine  MAP71 

This  subroutine  was  designed  to  read  terrain  data  as  class 
interval  designators  and  to  translate  these  designators  into  actual 
terrain  descriptors.  This  is  the  format  of  the  terrain  data  files 
read  by  an  earlier  mobility  model,  AMC71. 

The  entire  range  of  possible  values  for  each  of  the  terrain 
descriptors  is  divided  into  a sequence  of  intervals  from  which  a 
single  number,  the  interval  representative,  is  used  for  all  terrain 
units  whose  actual  value  of  that  descriptor  falls  within  that 
interval.  This  interval  is  given  an  integer  as  its  designator.  The 
terrain  files  read  by  MAP71  consist  of  records,  one  for  each  terrain 
unit,  containing  one  or  two  digit  integers  designating  those  intervals 
into  which  the  terrain  descriptors  fall. 
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The  subroutine  first  establishes  tables,  one  for  each  terrain 
descriptor,  of  representatives  for  each  designator.  This  is  done  by 
DATA  statements.  Then  records  are  read,  tests  are  made  for  end  of 
input  file  (and  NTUX  if  SEARCH  = 1)  and  the  class  interval 
representatives  are  loaded  into  the  terrain  descriptors  by  simple 
table  lookup  procedures.  The  format  of  the  data  to  be  read  by  this 
subroutine  is  described  in  Section  III.C.1. 

A test  is  made  to  check  the  compatability  of  obstacle 
parameters  and  flags  are  set  for  those  stem  diameter  classes  not 
present  in  the  terrain  unit.  The  routine  then  returns  to  TERTL. 

5.  Subroutine  AREAL  - Areal  Module  Control 

This  subroutine  is  the  control  program  for  the  Areal  Module. 
It  consists  solely  of  a sequence  of  CALL'S  to  subroutines  named  IV1, 
IV2 , . . . , IV21 , each  call  followed  by  a test  of  the  corresponding  flag 
KIV1,  KIV2 , . . . , KIV21  to  determine  if  the  results  of  that  subroutine 
are  to  be  written.  The  Areal  Module  is  described  in  section  II. D 
below.  The  subroutine  then  returns  to  the  C&I/O  main  program. 

6.  Subroutine  ROAD  - Road  Module 

Since  the  Road  Module  is  considerably  smaller  than  the  Areal 
Module  no  separate  control  program  was  written.  This  subroutine  is 
the  entire  Road  Module  and  described  in  Section  II. E below. 
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7-  Subroutine  BUFFO  - Basic  Output 

This  is  the  basic  output  subroutine  of  the  C&I/O  Module.  The 
particular  outputs  are  described  in  Section  III.E. 


/ 
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B.  Vehicle  Preprocessor 

The  Vehicle  Preprocessor  Module  consists  of  a sequence  of 
subroutines  named  III,  II2, . . . ,1117,  and  some  additional  subroutines 
named  TRAIN,  AUTOM,  STICK,  LINEAR,  FIT,  APPROX,  SOLVER,  LINES,  RESIDU, 
PLTSET,  SCAL,  LIMITS,  FIXER  and  CURPT  called  by  1116.  These  routines 
adjust  dimensions  and  calculate  derived  vehicle  descriptors,  including 
the  tractive  effort  vs.  speed  relationship. 

The  tractive  effort  vs.  speed  relationship,  at  this  stage 
(i.e.,  without  attenuation  for  soil  limits  or  slip)  also  known  as  the 
rim  pull  curve  of  the  vehicle,  is  fitted  by  a sequence  of  quadratic 
curves  for  various  ranges  of  speeds.  If  the  program  encounters 
difficulties  with  the  curve  fit  procedure  it  will  print/plot  the 
points  and  the  curves  for  user  analysis  and  intervention.  Alternately 
the  user  may  wish  to  have  the  points  and  curves  plotted  in  any  case  by 
setting  the  switch  DETAIL  to  5. 

The  individual  subroutines  comprising  the  Vehicle  Preprocessor 
will  now  be  described. 

1.  Subroutine  III  - Units  Conversion  Routine 

This  routine  changes  those  vehicle  parameters  that  are  not 
entered  in  the  units  of  lbs,  inches,  radians  and/or  seconds  into  these 
units.  One  exception  is  the  engine  revolutions  per  minute  which  are 
converted  to  revolutions  per  second,  not  radians  per  second. 
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Those  users  describing  their  vehicles  in  SI  units  will  be 
required  to  modify  this  routine  extensively  or  perhaps  write  a 
separate  program  to  change  the  vehicle  data  into  the  U.S.  Customary 
units  used  in  NRMM. 

2.  Subroutine  II2  - Gross  Combined  Weight 

The  weight  on  each  suspension  assembly  is  given  as  part  of  the 
vehicle  input.  In  addition,  the  flag  IP(i)  = 1 indicates  that 
assembly  i is  powered  and  the  flag  IB(i)  = 1 indicates  that  assembly  i 
is  braked.  This  subroutine  sums  the  weights  on  all  the  assemblies 
into  GCW  and  the  weight  on  the  powered  and  braked  assemblies  into  GCWP 
and  GCWB,  respectively.  The  weight  on  the  non-powered,  GCWNP,  and 
non-braked,  GCWNB,  assemblies  is  also  calculated. 

j.  Subroutine  II3  - Maximum  Tire  Speed 

This  subroutine  calculates  a maximum  speed  which  a wheeled 
vehicle  could  travel  without  destroying  the  tire.  This  speed, 
VTIRE(j),  calculated  i 

for  j = 1 fine  grained  soil 

j = 2 coarse  grained  soil 
j = 3 highway 

depends  primarily  on  tire  size,  construction,  and  inflation  pressure.* 
The  formulas  are,  for  each  assembly  i, 

s = (b^i  _ .4bj.i)/.75 

* For  further  explanation  on  how  inflation  pressure  is  used  in  this 
Model  see  Section  II. D. 3* 
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h = (4.32/s2-38)[(w./n.  )]1 -71 

where  = section  width  of  tires 

= width  of  rims 
= load  on  entire  assembly 
= number  of  tires 
= diameter  Of  rims. 

For  radial  tires  (ICONST(i)j^  1) 

Vtij=  100.(pij/h)^  in  miles  per  hour 
and  for  bias  ply  tires  (ICONST(i)  = 1) 

Vtij=  70. (pi j/h)^*^^  in  miles  per  hour 
where  p^j  = pressure  used  in  tires  on  assembly  i for 

j = 1 fine  grained  soil 
j = 2 coarse  grained  soil 
j = 3 highway 

^tij  = maximum  safe  speed  for  tires  on  assembly  i at 
pressure  j. 

i®  converted  to  inches  per  second  in  II3.  The  maximum  safe 
tire  speed  for  the  vehicle  is  then 

VTIRE(j)  = min  for  all  i} 

for  tire  pressure  j . 

These  relationships  are  patterned  after  Eklund  (1945)  with 


modifications . 
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4.  Subroutine  II4  - Maximum  Path  Width 


In  this  subroutine  the  maximum  path  width  of  the  suspension 
assemblies  is  found  by  subtracting  the  clearance  between  the  left  and 
the  right  suspension  assembly  elements  from  the  tread  width  and 
finding  the  largest  such  number. 

5.  Subroutine  II5  - Tire  Deflection  Ratio 


For  each  wheeled  assembly  i the  variable  or  DFLCT(i,j), 

gives  the  deflection  of  the  tire  at  the  pressure  used  for  j z 1 fine 
grained  soil,  j = 2 coarse  grained  soil,  and  j = 3 highway.  This 
routine  calculates  the  deflection  ratio,  DRAT(i,j),  as  the  ratio  of 
the  deflection  and  the  section  height,  h^^. 


6.  Subroutine  II6  - Characteristic  Length 


In  this  routine  the  characteristic  length,  l^j  or 
CHARLN(i,j),  of  a suspension  assembly  i is  set  to  the  track  length 
TRAKLN(i)  of  assembly  i if  tracked  or 

^ij  = 2(  6ij  6 if  wheeled 

where  6 . ^ = DFLCT(i , j ) 

d^.^  = diameter  of  tire  on  assembly  i 
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7.  Subroutine  II7  - Ground  Contact  Area 

In  this  routine  the  ground  contact  area,  GCA(i,j),  for  the 
elements  on  suspension  i is  set  to 

2 * characteristic  length  * track  width  if  tracked 
or 

characteristic  length  * section  width  if  wheeled 

Since  the  characteristic  length  depends  on  tire  pressure  j,  so  does 
the  ground  contact  area. 

8.  Subroutine  118  - Controlling  Lateral  Distance 

In  this  routine,  the  minimum  lateral  distance,  WTMAX,  from  the 
center  of  gravity  to  the  supporting  element  of  each  suspension 
assembly  is  found.  This  represents  the  maximum  lateral  support  base. 
Thus  for  wheeled  vehicles 

WTMAX  = min  {t^/2  - ycc  + (bi/2)*IDi  for  all  i} 
where  t^  _ tread  width  of  suspension  i 

y^G  = lateral  distance  of  center  of  gravity  from  vehicle 
center 

z section  width  of  tires  on  suspension  I 

= 0 if  singles 
1 if  duals 

and  for  tracked  vehicles 

WTMAX  = min  {t^/2  - yqq  for  all  i} 


L 


R-2058,  VOLUME  I 
Operational  Modules 


Page  ^8 


9.  Subroutine  II9  - Maximum  Rolling  Radius 

The  rolling  radius  of  the  tire  is  calculated  from  the 
revolutions  per  mile,  REVM^^  which  is  an  input  parameter,  as 
RR  = max  (12»5280)/(2  *REVM^) 

10.  Subroutine  1110  - Maximum  Braking  Force 

This  subroutine  calculates  the  maximum  braking  force  the 
vehicle  can  support  by  summing  the  product  of  the  braking  coefficient, 
XBRCOF,  entered  as  part  of  the  vehicle  data,  and  the  weight  on  each 
suspension  element  for  those  suspension  elements  which  are  allowed  to 
be  braked  [ IB( i ) = 1 ] . 

This  force  is  to  represent  the  vehicle’s  ability  to  arrest  its 
running  gear  regardless  of  the  running  gear  ground  surface  traction 
coefficient . 

11.  Subroutine  1111  - Horsepower/ton 

Here  the  net  horsepower,  HPNET,  entered  as  part  of  the  vehicle 
data  is  divided  by  the  weight  of  the  vehicle  supported  on  the  powered 
traction  elements,  CGWP,  converted  to  tons. 
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12.  Subroutine  1112  - Vehicle  Cone  Index  in  Fine  Grained  Soil 

This  routine  calculates  the  single  pass  Vehicle  Cone  Index  for 
fine  grained  soil  (VCIFG)  for  each  suspension  assembly  by  applying  the 
equations  for  all-wheeled  and  tracked  vehicles  to  a single  axle  or  a 
pair  of  tracked  elements.  For  wheeled  axles,  a separate  VCIFG  is 
calculated  for  the  three  tire  pressures,  possibly  different, 
recommended  for  fine  grained  soil,  coarse  grained  soil,  or  roads. 

For  wheeled  axles,  the  following  calculations  are  made: 

Contact  Pressure  Factor:  CPFFG  = Wj^/(nj^bidi/2) 
where  for  each  axle  i 

= weight  on  axle 
= number  of  tires 
= section  width 
= outside  diameter  of  tire 


Weight  Factor:  WF  = .553 

Wi/1000. 

if 

Wi<2,000 

= .033 

Wi/1000. 

+ 1. 

if 

2,000<Wi<13,500 

= .142 

w^/iooo. 

- .42 

if 

13,500<Wi<20,000 

= .278 

^i/IOOO. 

- 3.115 

if 

20,000<Wi 

Tire  Factor:  TF  = (10  + b^)/ioo. 

Grouser  Factor:  GF  = 1.00  without  chains  (ICHAIN^  = 0) 

= 1.05  with  chains  (ICHAIN^^  _ -j) 

Wheel  Load  Factor:  WLORF  = ( W^/ i OOO) / ( ni/2 ) 

Clearance  Factor:  CLF  = CLRMIN^/10 

Engine  Factor:  EF  = 1.00  if  less  than  10  hp/ton 

= 1.05  if  10  hp/ton  or  more 


Transmission  Factor:  TFX  = 1.00  for  automatic  (ITVAR  = 0) 
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= 1.05  for  manual  (ITVAR  i 0) 

Tire  Deflection  Factor:  = [((1  - 6 ^ j ) /b^ ) / . 85 ] ^ ^ 

where  = deflection  of  the  tire  on  axle  i when  inflated 
with  pressure  recommended  for 
j = 1 fine  grained  soil 

j = 2 coarse  grained  soil 

j = 3 roadway 

Mobility  Index:  XMI  = [ ( CPFFG»WF)/(TF*GF)  + WLORF  - CLF]»EF*TFX 
Vehicle  Cone  Index  (Wheeled,  Fine  Grained  Soil) 

VCIFG^j  = [11.48  + .2  XMI  - 39.2/(XMI  + 3.74)]TDFij 

For  a left-  right  pair  of  tracked  suspension  elements,  the  following 
calculations  are  made: 

Contact  Pressure  Factor:  CPFFG  = Wj^/(21j^bi) 

where  for  each  left-right  pair  of  tracked  elements  i 
= weight  supported  by  pair 

r length  of  tracked  element  in  contact  with 
ground 

bj^  = width  of  tracked  element 


Weight  Factor:  WF  = 

1.0 

if 

Wi<50,000 

WF  = 

1.2 

if 

50,000£W^<70,000 

WF  = 

1.4 

if 

70,000<W^<100,000 

WF  = 

1.8 

if 

100,000<w. 

Track  Factor:  TF  = b 

i/100 

Grouser  Factor:  GF 

= 1.0 

if 

grouser  height  less  than  1.5  in. 

GF 

= 1.1 

if 

grouser  height  is  1.5  in.  or  more 

Bogie  Factor:  WLORF  = W^/io/Ni/Agi 

where  = total  number  of  road  wheels  on  tracks  in 

contact  with  ground 


R-2058,  VOLUME  I 
Operational  Modules 


Page  51 


Agi  - area  of  one  track  shoe  (in'^) 

Clearance  Factor:  CLF  = CLRMINj^/10 

Engine  Factor:  EF  = 1.00  if  10  hp/ton  or  more  on  element  i 

= 1.05  if  less  than  10  hp/ton  on  element  i 
Transmission  Factor:  TFX  =1.0  if  automatic  (ITVAR  / 0) 

TFX  = 1.05  if  manual  (ITVAR  = 0) 

Mobility  Factor:  XMI  = [ (CPFFG»WF)/(TF»GF)  + WLORF  - CLF]*EF*TFX 
Vehicle  Cone  Index  (Tracked,  Fine  Grained  Soil) 

VCIFG  = 7 + .2  XMI  - 39.2/(XMI  + 5.6) 

13.  Subroutine  1113  - Vehicle  Cone  Index  in  Coarse  Grained  Soil 

This  routine  calculates  the  single  pass  Vehicle  Cone  Index  for 
coarse  grained  soil  (VCICG)  for  each  suspension  assembly  by  applying 
the  equations  for  an  all-wheeled  and  tracked  vehicle  to  each  single 
axle  or  each  pair  of  left-right  tracked  elements.  For  wheeled  axles, 
a separate  VCICG  is  calculated  for  the  three  tire  pressures,  possibly 
different,  recommended  for  fine  grained  soil,  course  grained  soil,  and 
roads. 

For  wheeled  axles,  the  following  calculations  are  made: 

Wheel  Diameter  Factor:  WDF  = 2.  if  b^/d^j_>2.4 

WDF  = 5.  if  b./d^^<2.4 
where  b^^  = nominal  tire  width 
= rim  diameter 
Contact  Pressure  Factor: 

CPFCG  = .607Pij  + 1 .35[ (1 17.»ply  rating) /(WDF»bi  + d^i)] 

- 4.93 
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where  _ pressure  of  tire  on  assembly  i recommended 

for  j = 1 fine  grained  soil 
j = 2 coarse  grained  soil 
j = 3 roadways 

Contact  Area  Factor:  CAF  = log^Q(Wj^/CPFCG) 

where  = weight  on  axle  i 
Strength  Factor: 

STF  = .0526(n^  + .0211pij)  - .35CAF  + 1.587 
where  n^  - number  of  tires  on  axle  i 
Vehicle  Cone  Index  is  then  10  raised  to  the  power  STF: 

VCICG^j  = IO^TF 

For  tracked  assemblies,  the  VCICG  is  set  equal  to  zero  since  it  is  not 
used  in  further  calculations. 


14.  Subroutine  1114  - Vehicle  Cone  Index  for  Muskeg 


This  routine  calculates  the  single  pass  Vehicle  Cone  Index  for 
muskeg  (VCIMUK)  as  follows: 

VCIMUK  = 13  + .535  Wj^/(b^  +dj^*nj^)  for  wheeled  axles 
where  = weight  on  axle  i 

b^  = section  width  of  tires  on  axle  i 
= outside  diameter  of  tires  on  axle  i 
r number  of  tires  on  axle  i 
VCIMUK  = 13  + .0625  + Ij^)  for  tracked 

assemblies 


where  b^  = track  width 

Ij^  = track  length  on  ground 
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The  use  of  these  relationships  to  model  vehicle  performance  on 
muskeg  is  included  primarily  for  comleteness.  It  is  a simplistic  model 
based  on  data  of  a single  study,  Schreiner ( 1 967) • 

15.  Subroutine  1115  - Combined  Contact  Pressure  Factor 

This  subroutine  finds  the  maximum  contact  pressure  factor 
across  suspension  assembly.  For  wheeled  assemblies  a separate  maximum 
is  sought  for  each  pressure  setting,  j = 1 fine  grained  soil,  j = 2 
coarse  grained  soil,  and  j = 3 roadway. 

16.  Subroutine  1116  - Power  Train 

This  subroutine  controls  the  calculations  used  to  specify  the 
power  train  of  the  simulated  vehicle. 

The  driving,  as  opposed  to  braking,  characteristics  of  the 
vehicle  are  modeled  by  a tractive  effort  vs.  speed  of  vehicle 
relationship.  This  relationship  is  given  by  a series  of  quadratics 

F(v)  = + an 

where  different  values  for  the  constants  c^^  a^  are  used  for 

different  "gears'*,  n.  For  computational  purposes  the  gears  are  really 
speed  ranges.  Thus,  if  Vq=o<v i <V2< • • .<Vn  is  a 

non-decreasing  sequence  of  speeds  that  represent  the  "gear"  intervals, 
the  tractive  effort  relationship  given  by  the  above  formula  applies 
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The  precise  manner  of  selecting  the  sequence  {v^^; 
n=0,1,...,NG  } and  the  number  of  gears,  NG,  consists  of  several 
discrete  steps.  The  logic  of  this  calculation  is  shown  in  Figure 
II. B.  1 . 


The  first  step  depends  on  whether  the  tractive  effort  vs.  speed 
was  entered  as  part  of  the  vehicle  data.  If  so,  Subroutine  FIT  is 
entered  immediately  to  calculate  NG,  the  v^«s,  and  the  coefficients 

^n  > ^n » C|^ . 

If  the  table  of  tractive  effort  vs.  speed  is  to  be  constructed, 
it  is  constructed  from  basic  power  train  descriptors  such  as  engine 
torque  at  given  RPM,  the  torque  converter  characteristics,  the 
transmission  and  differential  and/or  transfer  case  ratios,  and  the 
radius  of  the  drive  sprocket  or  wheels.  These  calculations  are 
controlled  and  performed  by  Subroutine  TRAIN  and  the  Subroutines  AUTOM 
and  STICK. 

a)  Subroutine  TRAIN  - Construction  of  Tractive  Effort  vs. 

Speed  Curves 

This  routine  controls  the  calculations  to  construct  a table  of 
tractive  effort  vs  vehicle  speed  values.  Since  no  slip  or  surface 
characteristics  are  used,  this  may  be  called  the  "rim  pull  curve”. 

This  routine  first  loads  the  speed  array,  POWER(SPEED, N) , with  values 
of  forward  speed  from  zero  to  100  MPH  in  half  mile-per-hour 
increments.  The  variable  SPEED  is  declared  integer  and  given  a value  1 
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ENTER 


On  input  MAPG  = 1 indicates  tractive 

effort  vs.  speed  curve  is 
to  be  calculated  from 
powertrain  data 

MAPG  = 0 indicates  the  i 

tractive  effort  vs.  ’ 

speed  data  is  to  be  used 

lAPG  = 0 indicates  only  powertrain  data  exists  in  file 

lAPG  = 1 indicates  both  powertrain  and  tractive  effort 
data  exists  in  vehicle  file 

lAPG  = 2 indicates  only  tractive  effort  vs.  speed  data  exists  in 
veh i cl e file 


SET: 

TOP  SPEED 

NUMBER  OF  POINTS 

RETURN 


L 
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and  used  for  clarity.  POWER(FORCE, N)  is  initialized  at  zero.  Here 
the  variable  FORCE  is  also  declared  integer  and  given  the  value  2 and 
used  for  clarity. 

The  engine  torque  vs.  engine  speed  relationship  is  stored  in 
the  array  ENGINE  where  the  speed  values  are  located  in  ENGINE(RPM , N) 
and  the  torque  in  ENGINE(TORQUE,N) . Here  RPM  =1  and  TORQUE  = 2,  both 
declared  integer.  If  the  vehicle  is  fitted  with  an 
engine-to-transmission  transfer  gear  box,  this  relationship  is 
modified  to  represent  the  torque  vs.  speed  at  the  output  shaft  of  this 
gear  box . 

Subroutine  TRAIN  then  calls  AUTOM  for  simulation  of  an 
automatic  transmission  or  STICK  for  simulation  of  a manual 
transmission.  Upon  return,  diagnostic  output  is  written  if  called  for. 

(1)  Subroutine  AUTOM  - Tractive  Effort  vs.  Speed  of  Vehicle  with 

Automatic  Transmission  and  Torque  Converter 

The  following  calculations  are  performed  for  each  transmission 
gear  ratio  and  vehicle  speed; 

The  routine  first  converts  the  vehicle  speed  to  torque 
converter  output  speed  by  dividing  by  2pi  times  the  wheel/sprocket 
radius  and  multiplying  by  the  final  drive  and  transmission  gear 
ratios.  A trial  value  of  engine  RPM  is  then  chosen  and  the  resulting 
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torque  converter  speed  ratio  is  calculated.  From  the  input  data,  a 
torque  converter  input  speed  is  estimated  (by  linear  interpolation  of 
the  torque  converter  input  speed  vs.  speed  ratio  data).  The  square  of 
the  ratio  of  this  torque  converter  input  speed  to  the  engine  output 
speed  [which  physically  must  be  one  but  may  not  be  due  to  the  trial 
value  of  engine  speed  not  being  physically  realizable]  is  then 
multiplied  by  the  input  torque  at  which  the  torque  converter 
relationships  apply  to  yield  a torque  converter  input  torque.  From 
the  engine  data,  an  engine  output  torque  is  estimated  by  linearly 
interpolating  the  engine  speed  vs.  torque  relationship  (also  input 
data).  The  mismatches  between  engine  output  torque  and  torque 
converter  input  torque  and  engine  output  speed  and  torque  converter 
input  speed  (physically  both  of  which  must  be  the  same)  are  used  to 
adjust  the  estimated  engine  speed  higher  or  lower.  This  adjustment  is 
performed  by  following  a binary  iteration  scheme. 

Once  an  engine  speed  at  which  both  the  engine  output  torque 
matches  the  estimated  torque  converter  input  torque  and  the  engine 
output  speed  matches  the  torque  converter  input  speed  has  been 
determined,  the  torque  converter  torque  ratio  at  the  specified  speed 
ratio  is  used  to  calculate  a torque  converter  output  torque  which  when 
multiplied  by  gear  ratios  and  efficiencies  of  the  transmission  and 
final  drive  and  divided  by  the  moment  arm  of  the  driving 
wheel/sprocket  yields  a driving  force  (tractive  effort). 

For  each  gear,  the  above  calculations  are  done  for  every  speed 
in  the  vehicle  speed  array.  For  each  speed,  the  maximum  tractive 
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effort  among  those  for  various  gears  is  chosen. 

(2)  Subroutine  STICK  - Tractive  Effort  vs.  Speed  of  Vehicle  with 

Manual  Transmission 

For  each  speed  and  each  gear,  the  vehicle  speed  is  transformed 
into  an  engine  speed  by  dividing  by  the  circumference  of  the  driving 
wheel/sprocket  and  multiplying  by  the  final  drive  and  transmission 
gear  ratios.  An  engine  torque  is  then  estimated  by  linearly 
interpolating  the  engine  speed  vs.  torque  relationship.  This  torque 
is  then  transformed  into  a driving  force  (tractive  effort)  by 
multiplying  by  the  transmission  and  final  drive  gear  ratios  and 
efficiencies  and  dividing  by  the  moment  arm  of  the  driving 
wheel/sprocket . 

For  each  speed,  the  maximum  tractive  effort  among  those  for  the 
various  gears  is  chosen. 

b)  Subroutine  FIT  - Quadratic  Curve  Fit  to  Tractive  Effort  vs.  Speed 

Relationship 

The  Tractive  Effort  vs.  Speed  relationship  above  may  be 
visualized  as  a sequence  of  points  on  a plot  of  those  two  variables. 
This  routine  determines  the  coefficients  of  a sequence  of  quadratics 
F = a + bv  + cv2  and  the  minimum  and  maximum  speeds  for  which  each 
of  these  quadratics  fit  the  relationship  plotted  above.  Each  speed 
range  for  which  a different  set  of  coefficients  (a,b,c)  must  be  used 
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VEHICLE  SPEED  (V) 

FIGURE  II.B.2  --  Plot  of  Tractive  Effort  vs.  Speed  Array" 


will  be  called  a "gear"  since  for  some  vehicle  transmissions  the  speed 
range  may  actually  correspond  to  the  speeds  for  which  a particular 
transmision  gear  is  used. 

From  the  plot  it  is  immediately  apparent  for  what  speed  ranges 
each  gear  should  be  defined.  This  is  due  to  the  powerful  pattern 
recognition  capability  of  the  human  eye  and  brain.  An  efficient 
computer  algorithm  which  has  the  same  capability  for  a sequence  of 
number  pairs  stored  in  computer  memory  is  difficult  to  develop. 
Although  the  algorithm  of  this  subroutine  is  capable  of  successfully 
distinguishing  maximum  and  minimum  speeds  for  each  gear  for  large 
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class  of  engine/transmission  combinations  there  are  still  occasional 
tractive  effort  vs.  force  relationships  for  which  the  quadratic  fit 
procedure  will  not  be  satisfactory.  In  these  cases  the  program  will 
terminate  and  print-plot  the  relationship  for  human  intervention. 

The  procedure  used  here  is,  starting  with  three  points,  to 
sequentially  fit  quadratics  using  a least  squares  criterion  and  to 
test  if  the  next  point  falls  within  a range  of  2%  of  the  tractive 
effort  predicted  by  extrapolation  of  the  fitted  curve.  If  it  does, 
this  (next)  point  is  included  in  the  current  gear  and  the  procedure  is 
repeated  for  the  following  point.  If  it  does  not,  a new  gear  is 
started. 

When  all  the  points  "belonging”  to  gear  n have  been  found  the 
coefficients  of  the  least  squares  fitted  quadratic  ( ATF , BTF , CTF)  are 
calculated  by  use  of  a matrix  inversion  routine  called  SOLVER  and  the 
minimum,  VGV(n,1),  and  maximum,  VGV(n,5),  speeds  of  the  gear  are  set. 
Three  speed  values  are  interpolated  at  regular  spacing  [VGV(n,2), 
VGV(n,3),  and  VGV(n,il)]  and  the  values  of  tractive  effort  for  these 
five  speeds  are  calculated  [TRACTF(n , 1 ) , . . . ,TRACTF ( n ,5 ) ] . A new  gear, 
n+1,  is  then  started  from  the  last  speed  value  VGV(n,5). 

When  these  calculations  are  complete  a subroutine  called  APPROX 
calculates  the  difference  between  the  quadratic  approximation  to  the 
points  and  the  straight  lines  fitted  between  any  two  adjacent  points 
within  the  speed  range  of  the  gear.  Subroutine  LINES  and  RESIDU  are 
usod  here.  RESIDU  checks  if  the  difference  is  large  and  sets  an  error 
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indicator  if  it  is.  This  test  is  used  to  avoid  anomalous  fits  such  as 
illustrated  in  Figure  II. B. 3* 


FIGURE  II.B.3.  --  Possible  Anomaly  in  Quadratic  Equation 

Fit  to  a Gear 


When  this  occurs,  the  program  produces  a print-plot  of  the 
tractive  effort  vs.  speed  relationship  (both  points  and  fitted  curve) 
and  writes  a message  indicating  where  the  problem  occured  and  a 
suggestion  that  additional  points  be  included  in  the  tractive  effort 
vs.  speed  array.  The  subroutines  which  are  used  to  produce  the  print  - 
plot  are  PLTSET,  PNTRLT,  SCAL,  RESCAL,  LIMITS  and  CURPLT. 

If  the  basic  tractive  effort  vs.  speed  relationship  was 
originally  entered  as  point  pairs,  all  that  is  required  is  that 
additional  point  pairs  be  inserted  as  indicated.  Otherwise,  a possible 
solution  is  to  enter  the  tractive  effort  vs.  speed  pairs  as  read  from 
the  printer-plot  produced  above  as  vehicle  input  data  with  the 
additional  points  inserted  and  to  set  MAPG  to  0. 
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17-  Subroutine  III?  - Rotating  Mass  Factor 

This  routine  calculates  a factor  which  simulates  the  inertial 
mass  of  the  rotating  parts  which  have  to  be  accelerated  when  the 
entire  vehicle  is  accelerated.  The  factor  varies  depending  on  the 
gear  in  which  the  transmission  is  engaged.  The  formula  is 

Rotating  Mass  Factor^jg  =1+  + mF2*(rNG)^ 

where  NG  = gear  number 

"’F'I  = .14  if  there  is  a tracked  assembly  on  the  vehicle 
= .03  otherwise 

'"F2  = C .008(id)'' •^®ng]/ncW 

i = 2 if  the  engine  is  a two  cycle  diesel 

= 1 otherwise 

d = displacement  in  cubic  inches 
f’e  = number  of  engines 
= number  of  cylinders 
W = gross  combined  weight  of  vehicle 

^NG  = (f'NG>'w)/(^Qm) 

^NG  = tractive  effort  at  center  speed  of  gear  NG 
= rolling  radius  of  driving  wheel  or  sprocket 
radius 

T1  = .7  if  there  is  a tracked  assembly 
= .9  otherwise 

Qjn  = maximum  torque  of  engine  regardless  of  gear. 
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C.  Terrain  Preprocessor 

The  Terrain  Preprocessor  is  a short  subroutine  whose  primary 
purpose  is  to  adjust  dimensions  of  the  incoming  terrain  data,  to 
select  specific  terrain  values  from  optional  ones  based  on  scenario 
variables,  calculate  some  derived  terrain  descriptors  and  adjust  the 
terrain  for  a snow  cover  if  so  called  for. 

First  the  obstacle  dimensions,  recognition  distance,  radius  of 
curvature,  and  stem  spacing  are  converted  to  inches.  Grade  and 
obstacle  approach  angle  are  converted  to  radians.  One  of  the  RCI's 
given  for  dry,  normal  and  wet  season  is  selected  based  on  the  value  of 
the  scenario  variable  ISEASN. 

An  elevation  correction  factor  for  engine  performance  is 
calculated  using  the  equation 
ECF  = 1 - .04e/1000. 

where  e = elevation  of  the  terrain  unit  in  feet,  an  input  variable. 

There  are  terrain  situations  where,  even  though  the  input  data 
indicates  obstacles  are  present  in  the  patch,  their  effect  on  vehicle 
performance  is  negligible.  In  this  case  a flag,  JOBS,  is  set  to  1 
indicating  a patch  bare  of  obstacles.  This  is  done  when 

1.  obstacle  spacing  is  greater  than  197  feet 

2.  obstacle  approach  angle  is  from  179  to  181  degrees. 


R-2058,  VOLUME  I 
Operational  Modules 


Page  64 


Several  parameters  describing  obstacle  spacing  are  given  by  the 
equations  below.  A test  is  made  to  determine  the  consistency  of  the 
three  input  obstacle  parameters  in  case  of  a mound  since  the  class 
interval  method  of  obstacle  definition  (e.g.  as  read  by  MAP71)  could 
result  in  obstacles  that  cannot  be  physically  realized.  In  this  case 
the  obstacle  base  width.,  OBW,  is  altered  to  be  consistent  with  the 
other  two  parameters  0/ ^ and  hQ.  The  resulting  obstacle  base  width 
is  designated  here  by  w^. 

The  ground  level  width  of  the  obstacle: 

'^og  = Wq  + 2hoABS(cosa'o/sina'o)  for  trenches 
= Wq  for  mounds 

where  w^  = base  width  of  obstacle 
= obstacle  height 
= obstacle  approach  angle 


FIGURE  II.C.l  — Side  View  of  an  Obstacle 

The  top  of  a mound  or  bottom  of  a trench  is  the  minimum  obstacle 
width . 

Wq  z Wq  for  trench 

= _ 2h^  * ABS(cos®Q/sinQ'Q)  for  mound 
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The  maximum  extent  across  an  obstacle: 

d-('w2.i2Nl/2 

where  1^  = length  of  obstacle 

It  is  assumed  here  that  the  ground  level  plan  of  the  obstacles  base  is 
rectangular  with  width  w^  and  length  l^. 

The  mean  obstacle  approach  width: 
w^a  = 2(lo  + Wog)/^ 

It  is  assumed  here  that  the  rectangle  represented  by  the  base  of  the 
obstacle  may  be  oriented  at  any  angle  to  the  approach  path  of  the 
vehicle  and  that  this  approach  angle  is  uniformly  distributed  between 
0 and  tt/2.  The  mean  approach  width  is  derived  by: 


w 


FIGURE  II.C.2  — Vehicle  Approach  to  Obstacle 


where 


'^oa(®a^  = obstacle  approach  width 
a = vehicle  approach  angle 
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Note  that  for  obstacle  crossing,  both  in  the  Obstacle  Module  and  in 
the  Areal  Module,  it  is  assumed  that  0^  _ 90  degrees.  The 
calculations  here  are  used  in  the  calculations  of  speed  reduction  due 
to  maneuvering  around  obstacles  in  Areal  Module  Subroutine  IV1. 

Average  Terrain  Unit  Area  per  Obstacle: 

Aq  = ^(So/2)2 

where  _ average  obstacle  spacing. 

This  average  spacing  is  calculated  by  counting  the  number  of  obstacles 
in  a large  circular  area  of  diameter  D.  Obstacle  spacing  is  then 

Sq  = [(tt/n)(D/2)2]1/2 

where  N = number  of  obstacles  in  a circular  area  of  diameter  D. 
is  an  input  terrain  variable.  Since  S^  can  be  interpreted  as  the 
circle  diameter  which  on  average  contains  one  obstacle,  the  area  per 
obstacle  is  given  by  the  above  formula. 

For  regularly  spaced  obstacles  which  cannot  be  avoided 
’^og  = do  = Woa  = Aq  = 0. 

If  the  scenario  variable  ISNOW  calls  for  a snow  cover  of  Zg 
inches,  the  "snow  machine”  is  used.  This  is  a portion  of  code  which 
sets  the  surface/soil  type  to  signal  snow  (1ST  = 4),  reduces  the 
height  of  obstacles  z^Y/.g  where  V = snow  specific  gravity,  and 
attenuates  the  surface  roughness  by  a factor  of  y/*4  for  snow  depth 
below  twice  the  surface  roughness,  RMS,  and  by  a factor  of 
1 - 1/2(1  - Y/.4)  (Zg/RMS) 


R-2058,  VOLUME  I 
Operational  Modules 


Page  67 


for  snow  depths  above  twice  RMS. 

No  snow  is  permitted  on  water  covered  terrain  units  and  the 
above  obstacle  attenuation  is  not  performed  for  roads  and  trails 
(which  have  no  obstacles).  The  Terrain  Preprocessor  then  returns  to 
the  Control  and  I/O  Module. 
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D.  Areal  Module 

The  Areal  Module,  similar  to  the  Vehicle  Preprocessor,  is  a 
series  of  subroutines  which  are  called  sequentially  by  subprogram 
AREAL  of  the  Control  and  I/O  Module.  This  section  will  describe  these 
subroutines  in  the  order  that  they  are  called. 

1.  Subroutine  IV1  - Obstacle  Spacing  and  Area  Denied 

This  subroutine  calculates  data  for  factors  which  are  used  in 
Subroutines  IV2, IV15, IV16, IV17  and  IV18  to  model  the  average  speed 
lost  due  to  the  increased  time  it  would  take  a vehicle  to  maneuver 
around  obstacles  and  vegetation.  This  speed  loss  is  related  to  the 
size  of  the  vehicle  and  the  density  (inverse  spacing)  of  the  obstacles 
and  vegetation. 

Vegetation,  in  NRMM,  is  categorized  into  NI  categories  and 
ranked  from  small  to  large  stem  diameter  values.  For  the  data  files 
read  by  MAP71  and  MAP74,  NI  = 8 and  the  spacing  for  a class  is  that 
for  all  the  vegetation  in  that  and  higher  classes.  The  data  files 
yield  a value  for  the  average  spacing  of  the  vegetation  in  each  stem 
diameter  class.  (The  word  "class"  has  been  in  common  use  for 
"category"  in  this  field.)  The  vehicle/driver  speed  will  be  selected 
from  those  achieved  under  a variety  of  possible  avoidance  and  override 
strategies.  These  strategies  are  all  combinations  of  avoiding  and 
overriding  obstacles  and  avoiding  or  overriding  vegetation  in  certain 
size  classes  as  described  below. 
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Within  the  program  these  various  speed  estimates  are  indexed  by 
stem  diameter  classes  i = 1,2,...,NI.  Thus,  SRFV(i)  stands  for  the 
speed  reduction  factor  due  to  overriding  vegetation  in  stem  diameter 
classes  1,2,...,i-1  and  avoiding  stem  diameter  classes  i ,i+1 , . . . ,NI. 
Furthermore,  SRFO(i)  stands  for  the  speed  reduction  factor  due  to 
avoiding  obstacles  while  overriding  vegetation  in  stem  diameter 
classes  1,2,...,i-1  and  avoiding  those  in  classes  i , i+ 1 , . . . , NI . 
Eventually  these  2NI  factors  will  be  applied  (although  not  as 
explicitly  calculated  variables  in  the  program)  to  2NI  speeds  for  each 
of  3 slope  crossing  conditions  (uphill,  level  and  downhill)  if  cross 
country  simulation  is  called  for  (NTRAV  = 3).  This  results  in  6NI 
speed  estimates.  If  NTRAV  = 1,  only  one  slope  crossing  condition  is 
estimated  and  2NI  speeds  are  calculated. 

This  calculation  of  these  speed  reduction  factors  is  based  on 
the  concept  that  each  obstacle  or  tree  to  be  avoided  can  be  translated 
into  an  area  of  the  terrain  that  is  denied  to  the  vehicle,  or  more 
precisely  above  which  the  CG  of  the  vehicle  cannot  go.  For  instance, 
for  a tree  with  a diameter  of  d and  a vehicle  with  a width  w the  area 
denied  by  that  one  tree  is  a circle  of  radius  (d+w)/2  centered  at  the 
tree.  If  many  of  the  areas  denied  are  scattered  at  random  over  the 
terrain  unit,  any  one  traverse  will  be  forced  to  deviate  from  a 
straight  line  for  maneuvers  around  the  scattered  obstructions.  The 
length  of  the  path  is  increased  when  the  density  of  the  obstructions 
and/or  the  size  of  the  vehicle  is  increased.  Both  of  these  factors 
increase  the  area  denied.  For  purposes  of  NRMM  an  empirical  relation 
between  speed  reduction  and  overall  area  denied  is  used  to  account  for 
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obstruction  avoidance. 

In  this  routine  the  area  denied  due  to  the  obstacles,  ADO,  and 
the  area  denied  due  to  avoiding  vegetation  in  classes  i , i + 1 , . . . , NI , 
PAV(i),  are  calculated.  Several  checks  are  made  for  various 
conditions . 

Obstacle  avoidance  is  considered  first.  If  the  terrain  unit  is 
bare  of  obstacles,  NEVERO  is  set  to  2 indicating  that  the  obstacle 
override  calculations  are  to  be  skipped  and  ADO  = 0,  indicating  no 
area  is  denied  due  to  obstacles.  The  routine  then  considers 
vegetation  avoidance. 

Alternately,  if  the  obstacles  are  so  arranged  that  they  are 
unavoidable,  such  as  in  rice  paddies,  ADO  = 100.  and  the  effective 
obstacle  spacing  OBSE  = OBS,  the  actual  obstacle  spacing. 

If  obstacles  are  potentially  avoidable,  consideration  is  given 
as  to  whether  they  are  small  enough  to  fit  under  the  vehicle  or  must 
be  bypassed.  The  variable  WI  represents  the  minimum  width  between 
running  gear  elements  of  the  vehicle,  i.e.,  an  obstacle  no  wider  than 
WI  will  fit  under  the  vehicle  if  it  is  no  higher  than  CL,  the  ground 
clearance  of  the  vehicle.  If  the  obstacle  is  wider  than  WI  it  will  not 
fit  between  the  running  gear  and  the  effective  width  of  the  obstacle, 
EWDTH,  is  the  width  of  the  vehicle,  WDTH,  plus  the  width  of  the 
obstacle,  OAW.  The  effective  obstacle  spacing  is  then  OBSE  = 
AREAO/EWDTH,  the  area  assigned  to  each  obstacle  divided  by  the 
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effective  obstacle  width. 

If  the  obstacle  fits  between  the  running  gear  elements,  the 
effective  width  of  the  obstacle  is  the  path  width  of  a single  running 
gear  element,  PWTE,  plus  the  obstacle  width,  OAW.  The  effective 
obstacle  spacing  is  then  calculated  as  above.  A check  is  made  if  the 
obstacle  is  higher  than  the  ground  clearance;  if  it  is,  NEVERO  = 1 to 
indicate  no  obstacle  override  since  the  obstacle  is  too  narrow  to 
support  the  vehicle  and  too  high  to  fit  under  it.  Then  the  effective 
width  and  spacing  is  calculated  from  the  full  vehicle  width,  WDTH. 

The  area  denied  by  the  obstacles  is  then  calculated  by 
ADO  = 100  (area  denied  by  a single  obstacle)/(terrain  unit 
area  per  obstacle). 

The  terrain  unit  area  per  obstacle  is  modeled  as  a circle  whose 

diameter  is  the  effective  obstacle  spacing.  This  area  is 

tt(OBSE/2)2. 

The  area  denied  by  a single  obstacle  is  modeled  by  surrounding 

the  rectangular  obstacle  base  by  a band  the  half-width  of  the  vehicle 

and  summing  the  areas  of  all  the  regions  indicated  in  the  figure 
II.D.1. 

Thus  the  area  denied  by  a single  obstacle  is 

0BL*WA  + 2(OBL*WDTH/2)  +2(WA»WDTH/2)  + tt(WDTH/2)2. 

The  last  term  is  the  sum  of  the  four  quarter  circles  which  form  a full 
circle  of  radius  WDTH/2. 
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Loci  of  Closest 
Vehicle  Center 
Approach  to 
Obstacle 


FIGURE  1 1 .0 . 1 — Area  Denied  Due  to  an  Obstacle 

To  calculate  the  area  denied  by  the  vegetation  to  be  avoided 
the  density  of  stems  in  each  stem  diameter  class  is  calculated  first. 
Since  the  input  data  gives  the  average  spacing  of  vegetation  in  a stem 
diameter  class  and  greater,  the  spacing  of  individual  classes  has  to 
be  separated.  This  is  given  by; 

di  = (4/tt)[1/s?  - 1/s?^.i]  i = 

where  d^  _ density  of  stems  in  stem  diameter  class  i 

= average  spacing  of  stems  in  stem  diameter  classes 
i,i+1 , . . . ,NI. 

NI  = number  of  stem  diameter  classes 
The  percentage  of  the  area  denied  by  avoiding  stems  in  stem  diameter 
classes  i,  i+1,...,NI  is  given  by 
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NI  NI 

PAVj,  = 100/s2[Xid„4  d4/  E di  - WDTH] 
j=i  ^ ^ j=1  ^ 


where  d^j  = diameter  of  stems  in  stem  diameter  class  j 
WDTH  = width  of  the  vehicle. 


The  total  area  denied  due  to  avoiding  obstacles  and  stems  in 
stem  diameter  classes  i,i+1,...,NI  is  given  by 
ADT.  = ado  + PAVi(100-AD0)/100 

This  formula  takes  some  account  of  the  possibility  that  the  vegetation 
grows  on  obstacles.  No  additional  area  would  be  denied  due  to 
avoiding  such  vegetation. 

2.  Subroutine  IV2  - Land/Marsh  Operating  Factors 


This  routine  accounts  for  terrain  units  which  may  be 
covered.  The  effect  of  the  water  may  be  to  support  part  of 
of  the  vehicle,  reducing  the  effective  normal  forces  on  the 
gear  needed  for  traction.  At  the  limit,  the  vehicle  may  be 
supported  and  will  be  swimming. 


water 

the  weight 

running 

fully 


The  routine  first  screens  the  terrain  unit  type.  If  it  is  dry, 
the  float  indicator  is  set  to  zero,  (WRATIO  in  the  code)  is 

set  to  one  indicating  the  full  load  of  the  vehicle  is  on  the  running 
gear,  and  the  under  water  drag  area  (DAREA)  is  set  to  zero.  The 
routine  then  sets  the  tire  pressure  indicator,  JPSI,  and  exits. 
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If  the  terrain  unit  is  not  dry,  a test  is  made  to  determine  if 
the  water  is  sufficiently  deep  to  prohibit  fording.  This  can  occur  for 
a nonswimming  vehicle  and  will  result  in  a no  go  indicator,  NOGOWD,  to 
be  set  indicating  the  vehicle  cannot  proceed  across  this  terrain  unit. 
For  a swimming  vehicle  this  will  result  in  a fully  floating  operation 
for  which  the  selected  terrain  unit  speed  is  set  to  the  swimming 
speed,  VSS,  modified  by  vegetation  avoidance.  Water  covered  patches 
are  assumed  bare  of  obstacles. 

If  the  vehicle  can  ford,  that  is,  when  the  water  is 
sufficiently  deep  to  be  noted  but  not  deep  enough  to  lift  the  vehicle 
clear  off  the  ground  or  to  stop  its  progress,  the  buoyancy  is 
calculated  by  linear  interpolation  in  a table  of  water  depth  (WDPTH) 
vs.  weight  reduction  ratio  (WRAT)  yielding  a value  of  below 

1.0  which,  when  applied  to  vehicle  weight  terms  will  reduce  ground 
contact  pressure.  A final  calculation  results  in  the  frontal  area  of 
the  vehicle  subjected  to  the  water  drag  forces  for  later  incorporation 
into  the  driving/braking  force  calculations.  Before  exit  this  routine 
sets  JPSI,  the  tire  pressure  index.  See  description  of  the  next 
routine  for  an  explanation. 

3.  Subroutine  IV3  - Pull  and  Resistance  Coefficients 

In  this  routine  the  draw-bar  pull  over  weight  (DOW)  and 
resistance  over  weight  (RTOW)  coefficients  for  the  given  vehicle  and 
the  soil  of  the  current  terrain  unit  are  calculated.  Separate  pull 
and  resistance  coefficients  are  calculated  for  each  suspension 
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assembly,  thus  allowing  the  simulation  of  half  tracks  and  tracked 
vehicles  pulling  wheeled  trailers  as  well  as  combinations  with  large 
weight  variations  between  axles.  Also,  different  resistance 
coefficients  are  calculated  for  each  assembly  when  it  is  braked  and/or 
powered  (DOWPB , RTOWPB)  as  opposed  to  towed  in  a free  wheeling  mode 
(RTOWT).  The  basic  equations  are  included  in  Rula  and  Nuttall  (1971) 
with  revisions  by  Turnage  (1972). 

Four  surface  types  are  included:  fine  grained  soils,  coarse 
grained  soils,  muskeg  and  snow.  For  fine  grained  soils,  provisions 
are  made  to  simulate  the  effect  on  traction  of  slippery  soil  surface 
conditions  due  to  recent  rainfall,  flooding  and  or  standing  water. 
Separate  slipperiness  effects  are  included  for  CH  soils,  which  are 
largely  impervious  to  water,  and  for  other,  more  pervious  fine  grained 
soils.  Coarse  grained  soils,  muskeg  and  snow  are  assumed  to  never 
have  slipperiness  conditions  caused  by  standing  water,  flooding  or 
rainfall . 

Where  soil  is  very  soft  (soil  strength  exceeding  vehicle  cone 
index  by  at  most  20)  slipperiness  is  not  a factor.  If  this  excess 
(RCIX)  is  greater  than  20  the  pull  coefficients  are  .reduced  by  an 
exponential  relationship  detailed  below.  At  a certain  level,  given  by 
RCIX  > RCIS,  the  reduction  factor  becomes  constant  indicating  a 
"skating  condition"  on  an  extremely  hard  surface.  The  routine  also 
accounts  for  the  presence  (NPAD  = 1)  or  absence  (NPAD  = 0)  of  track 
road  pads. 
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As  described  in  the  various  routines  of  the  Vehicle 
Preprocessor  above  [Sections  II. B. 3,  II. B. 5,  II. B. 6,  II. B. 7,  II.B.12, 
and  II.B.13],  allowance  is  made  for  vehicles  with  central  inflation 
pressure  systems  by  allowing  changes  in  tire  pressure  due  to  various 
soil  conditions.  The  input  data  may  contain  up  to  three  different 
tire  pressures  for  use  on  fine  grained  soils,  coarse  grained  soils, 
and  highways.  The  scenario  variable  NOPP  indicates  how  these  should 
be  used.  If  NOPP  = 0,  a vehicle  which  can  change  its  inflation 
pressure  is  being  simulated  and  the  pressure  appropriate  for  the 
terrain  surface  is  used.  On  fine  grained  soil,  muskeg,  snow  and  water 
covered  terrain  units  the  fine  grained  soil  pressure  is  used.  If 
NOPP  is  not  0,  the  tire  pressure  is  set  to  the  inflation  pressure  to 
be  used  for  all  terrain  units  regardless  of  the  type.  The  variable 
JPSI,  set  in  routine  IV2,  indicates  the  pressure  to  be  used:  JPSI  = 1 
for  fine  grained  soil  pressure,  JPSI  = 2 for  coarse  grained  soil 
pressure,  and  JPSI  = 3 for  highway  pressure. 

In  the  current  subroutine,  JPSI  indexes  the  value  of  VCIFG, 
DRAT,  CFFFG,  CHARLN,  and  GCA  to  be  used.  These  are,  respectively,  the 
vehicle  cone  indices  for  fine  grained  soil,  the  tire  deflection  ratio, 
the  contact  pressure  factor  for  fine  grained  soil,  the  characteristic 
lengths  of  the  traction  elements,  and  the  ground  contact  area.  All  of 
these  values  depend  on  tire  deflection  which  depends  on  the  inflation 
pressure . 

This  subroutine  uses  three  other  subroutines,  FGSTR,  FGSPC,  and 
FGSPR.  These  will  now  be  described. 
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Subroutine  FGSTR  calculates  the  fine  grained  soil  towed  motion 
resistance  (RTOW)  for  a suspension  assembly.  The  routine  first  checks 
if  the  assembly  is  both  powered  and  braked.  If  so,  the  assumption  is 
made  that  it  will  never  be  free  rolling  (towed)  so  RTOWT,  the  returned 
coefficient,  is  set  to  zero.  If  the  assembly  may  be  towed  and  is 
tracked  an  error  list  is  written  on  unit  LUN1  and  the  program  is 
halted  since  towed,  tracked  assemblies  are  not  simulated.  For  towed, 
wheeled  assemblies 


where 


Then 

where 


and 


^ " '*’^i  *"water/*^i 

= weight  on  axle  i 

“"water  = weight  reduction  ratio  due  to  buoyancy 
(=1.  for  dry  terrain  units) 

s number  of  wheels  on  axle  i 

p = [RCIb^di  (6ij)^/2]/[w«  ( 1 - .Sb^/di)] 
RCI  = rated  cone  index  for  assembly 

bj^  = section  width  of  tire 
d^  = outside  diameter  of  tire 
Sij  = deflection  ratio  for  pressure  j 


RTOW  = 1 - .3412  p for  p _<2 

RTOW  = .04  + .2/(P  - 1.35)  for  P >2 

This  concludes  Subroutine  FGSTR. 


Subroutine  FGSPC  calculates  the  fine  grained  soil  pull 
coefficient  (DOW).  It  depends  on  the  contact  pressure  factor  (CPF) 
and  the  excess  rating  cone  index  (RCIX)  as  follows: 
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RCIX  = RCI  - VCIFG^j 

For  tracked  assemblies  and  CPF  < 4 
DOW  = .544  + .0463RCIX 

- [(.544  + .0463RCIX)2  - . 0702RCIX] 1 
for  RCIX  < 0,  DOW  = .076RCIX 

For  tracked  assemblies  and  CPF  >_  4 
DOW  = .455  + .0392RCIX 

- [(.455  + .0392RCIX)2  - . 0526RCIX] 1 /2 
for  RCIX  < 0,  DOW  = .056RCIX 

For  wheeled  assemblies  and  CPF  < 4 
DOW  = .3885  + .0265RCIX 

- [(.3885  + .0265RCIX)2  - . 0358RCIX] 1 /2 
for  RCIX  < 0,  DOW  = .046RCIX 

For  wheeled  assemblies  and  CPF  >_  4 
DOW  = .379  + .0219RCIX 

- [(.379  + .0219RCIX)2  - . 0257RCIX] 1/2 
for  RCIX  < 0,  DOW  = .033RCIX 

This  concludes  Subroutine  FGSPC. 


Subroutine  FGSPR  calculates  the  motion  resistance  coefficient 
(RTOWPB)  of  a powered/braked  assembly.  Similarly  to  the  previous 
routine,  it  depends  on  excess  RCI  and  the  contact  pressure  factor  as 


follows : 
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For  tracked  assemblies: 

RTOWPB  = .045  + 2.3075/(RCIX  + 6.5) 
for  RCIX  < 0 and  CPF  < 4 RTOWPB  = .4  - .072RCIX 
for  RCIX  < 0 and  CPF  > 4 RTOWPB  = .4  - .052RCIX 

For  wheeled  assemblies  and  CPF  < 4 

RTOWPB  = .035  + .861/(RCIX  + 3-249) 
for  RCIX  < 0 RTOWPB  = .3  - .043RCIX 
For  wheeled  assemblies  and  CPF  > 4 

RTOWPB  = .045  + 2.3075/(RCIX  + 6.5) 
for  RCIX  < 0 RTOWPB  = .4  - .029RCIX 
This  completes  Subroutine  FGSPR. 

Returning  to  Subroutine  IV3,  initially  a test  is  made  to 
determine  the  soil  type  and  a transfer  is  made  to  the  appropriate 
portion  of  code  which  is  described  next. 

a)  Fine  Grained  Soil 

For  fine  grained  soils  the  excess  RCI  is  calculated  with 
respect  to  the  VCIFG^j  for  assembly  i and  tire  pressure  j (if 
wheeled ) . 

RCIX  = RCI  - VCIFG.  . 

For  an  assembly  never  driven  nor  braked  the  powered  resistance 
(RTOWPB^)  and  pull  coefficient  (DOWPBf)  are  set  to  zero  and  the 
towed  resistance  coefficient  (RTOWTj^)  is  calculated  by  a call  to 
Subroutine  FGSTR.  For  powered  or  braked  assemblies  and  a dry  terrain 


R-2058,  VOLUME  I 
Operational  Modules 


Page  80 


unit  successive  calls  to  FGSPC , FGSPR  and  FGSTR  are  used  to  calculate 
DOWPB.^  RTOWPBi  and  RTOWTi , respectively. 

If  the  terrain  unit  is  wet,  the  value  of  NSLIP  indicates  the 
extent  of  surface  water  according  to  Table  II.D.1.  For  wheeled 
assemblies,  the  factor 

X = 6 _ .375 

where  6 _ deflection  ratio  of  tires  on  assembly  i at  inflation 

j,  is  used  to  account  for  the  beneficial  effects  of  high  inflation 
pressure,  which  helps  to  maintain  the  ”circular''  shape  of  the  tire  and 
thereby  improves  the  tire's  ability  to  break  through  the  slippery 
layer . 
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Table  II.D.1 

Slipperiness  Conditions  and  Parameters 


NSLIP  Meaning 


1 

less  than  1”  rain 

with 

no  free 

water 

2 

less  than  6 hours 

rain 

with  no 

free  water 

3 

more  than  6 hours 

rain 

with  no 

free  water 

4 

less  than  1"  rain 

with 

free  surface  water 

5 

less  than  6 hours 

rain 

with  free  surface  water 

6 

more  than  6 hours 

rain 

with  free  surface  water 

CH  Soils 

Impervious  to 

Water 

Tracked 

Assemblies 

Wheeled 

Assemblies 

NSLIP 

DOWCS 

RCIS 

DOWCS 

RCIS 

1 

.5. 

200 

.35 

300 

2 

.3 

150 

.25x 

150 

3 

.3 

200 

. 2x 

200 

4 

. 1 

. 200 

. 15x 

150 

5 

. 1 

300 

. 15x 

150 

6 

.15 

500 

.15 

100 

All  Other 

Fine  Grained 

Soils 

Tracked 

Assemblies 

Wheeled 

Assemblies 

NSLIP 

DOWCS 

RCIS 

DOWCS 

RCIS 

1 

.45 

100 

.3 

80 

2 

.3 

100 

. 1 

80 

3 

.2 

TOO 

. 1 

80 

4 

. 1 

100 

. lx 

80 

5 

. 1 

100 

. 1 

80 

6 

.15 

100 

. 1 

80 

These  relationships  are  not  used  for  excess  rating  cone  index, 
RCIX,  less  than  or  equal  to  20.  In  that  case  the  assumption  is  made 
that  the  soil  is  weak  and  plastic  in  relation  to  the  load  to  be 
imposed  on  it  by  the  vehicle  and  therefore  surface  water  will  not  have 
a significant  effect  on  traction  and  resistance.  The  coefficients 
DOWPB. , RTOWPBi  and  RTOWT^  are  calculated  by  calls  to 
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subroutines  FGSPC , FGSPR,  and  FGSTR,  respectively. 


For  a soil/vehicle  combination  where  the  excess  rating  cone 
index  (RCIX)  exceeds  20,  values  for  comparison  rating  cone  index 
(RCIO)  and  pull  coefficient  (DOWCO)  are  set  as  follows: 


Tracked 

Assemblies : 

RCIO  = 18. 

DOWCO  = 

.4 

Wheeled 

Assemblies : 

RCIO  = 20. 

DOWCO  = 

.55 

and  RCIS  and  DOWCS  are  set  according  to  Table  II.D.1. 

If  RCIX  exceeds  RCIS  (from  the  table)  and  the  assembly  is 
wheeled,  the  pull  coefficient  is  set  to  the  table  value  of  DOWCS  and 

RTOWPB.  and  RTOWTi  are  calculated  using  subroutines  FGSPR  and 
FGSTR,  respectively. 

In  case  of  a tracked  assembly  (and  RCIX  greater  than  or  equal 
to  RCIS),  a further  distinction  is  made  for  the  presence  of  track  road 
pads.  If  track  pads  are  present  (NPAD  =1)  the  same  calculations  as 
for  wheeled  assemblies  are  made  (under  the  observation  that  in  both 
cases  a rubber/soil  interface  exists).  If  there  are  no  pads  (NPAD  = 
0),  in  order  to  include  the  effect  of  grouser  action  when  no  pads  are 
fitted  the  pull  coefficient  (DOWPBj^)  is  set  to  the  average  of  DOWCS 
(from  the  table)  and  D (as  calculated  by  subroutine  FGSPC).  The 
resistance  coefficients  are  again  calculated  by  subroutine  FGSPR  and 
FGSTR. 


For  excess  rating  cone  index  (RCIX)  less  than  RCIS  (from  table) 
the  pull  coefficient  (in  this  case  DOWS)  is  calculated  by  the 
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log-linear  relation 

(log  DOWS  - log  DOWCS)/(log  DOWCO  - log  DOWCS)  = 

(log  RCIX  - log  RCIS)/  (log  RCIO  -log  RCIS) 

For  tracked  assemblies  with  track  pads,  DOWS  from  this  equation  is 
averaged  with  the  pull  coefficient  D from  Subroutine  FGSPC  to  form 
DOWPB^  ^ Otherwise  DOWS  becomes  DOWPBj^.  The  resistance 
coefficients  RTOWPB^  and  RTOWTj^  are  calculated  by  subroutines 
FGSPR  and  FGSTR. 

b)  Coarse  Grained  Soil 

This  portion  of  Subroutine  IV3  calculates  the  pull  and 
resistance  coefficients  for  each  assembly  when  the  terrain  unit 
contains  coarse  grained  soil.  Dimensionless  numerics  developed  by 
Turnage  (1972)  are  used  instead  of  the  vehicle  cone  index  (VCI). 

A basic  cone  index  gradient  terra  is  calculated  from 
G = .8645CI/3. 

For  tracked  vehicles,  the  towed  resistance  is  set  to  zero  since  the 
NRMM  does  not  model  towed  tracks.  The  pull  coefficient  is  calculated 
from  the  pi  term 

TTt  = [ .6G(bili)  ^ 

where  Wj^  = weight  on  assembly  i 
= track  width 

li  = track  length  on  ground 
by 

DOWPB.  = .121  + .258logTTt  for 
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DOWPB^  = ,339  + .logiogTTt  for  25<TTt<100 

DOWPB^  = .1181  + .038lognt  for  100<TTt<1000 

DOWPB^  = .595  for  1000<T^t 

Then  the  powered/braked  resistance  coefficient  is  calculated  from 

RTOWPB^  = .6  - DOWPBi. 

For  wheeled  axles,  if  the  axle  is  never  towed,  the  towed 
resistance  coefficient,  RTOWT^ ^ is  set  to  zero.  If  the  axle  can  be 
towed,  the  pi  term  is  calculated  by 

= G(bidi)^'5  i^/3/[(i_6  .j)3  (1+  bi/di)Wi/ni] 
where  = weight  on  axle 

i^i  = number  of  wheels  on  axle 
^i  = section  width  of  tires  on  axle 
^i  s diameter  of  tires  on  axle 
i = axle  number  (from  front) 

6ijz  deflection  ratio  for  tires  at  inflation  j 
The  towed  resistance  coefficient  is  then  calculated  by 
RTOWTj^  = ,114  - .Ol^t 

+ [(.44  - .01tt^)2  + .0002^t  + .08]^^^ 

If  the  wheeled  axle  can  be  powered  or  braked  the  width  and  weight  are 
adjusted  for  the  presence  or  absence  of  dual  wheels.  The  pi  term  is 

’"d  = G(Bdi)^-56ij  /W[i]^/2 
where  the  above  notation  is  used  with 

B for  singles,  2bi  for  duals 

W = for  singles,  2Wj^/ni  for  duals. 
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The  pull  coefficient  is  then  given  by 

DOWPBj  = .53  - 4.5/(  TT  ^ + 3.7) 

and  the  powered/braked  resistance  is 
RTOWPB.  = .6  - DOWPBi. 

c)  Muskeg 

This  portion  of  the  subroutine  IV3  calculates  the  pull  and 
resistance  coefficients  for  each  suspension  assembly  when  the  surface 
of  the  terrain  unit  is  designated  as  muskeg  or  peat.  The  equations 
used  are  basically  those  developed  for  fine  grained  soils  when  the 
contact  pressure  factor  is  greater  than  or  equal  to  4psi. 

The  excess  rating  index  is  calculated  from 
RCIX  = RCI  - VCIMUKj^ 

where  RCI  = rating  cone  index  of  terrain  unit 

VCIMUK^  _ vehicle  cone  index  calculated  for  assembly  i 
A candidate  resistance  coefficient  is  calculated  by 


RT  = 

1 , 

if 

RCIX<- 

RT  = 

1 . - .006(RCIX  + 100. ) 

if 

-100<RCIX<0 

RT  = 

.045  + 2. 3075/(6. 5+RCIX) 

if 

0<RCIX 

The  towed  resistance  coefficient  is  set  by 

RTOWT^  = RX  if  assembly  may  be  towed 

=0  if  assembly  is  always  either  powered 


or  braked. 
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The  powered  resistance  coefficient  is  set  by 

RTOWPB^  = RT  if  assembly  may  be  powered  or  braked 
=0  if  assembly  can  only  be  towed. 

For  unpowered  assemblies  the  pull  coefficient  is  set  to  zero.  For 
powered  assemblies  the  following  cases  are  distinguished: 

DOWPB^  = -1.  if  RCIX<-100. 

DOWPB.  = -1.  + .KRCIX  + 100.)  if  -100.<RCIX<0 

DOWPB.  = .51164  + .1091RCIX 

- [(.5464  + .1091RCIX)2  _ . 1 92RCIX] I /2 

if  0<RCIX  and 

the  vehicle  is  tracked  with  contact  pressure  factor  less  than  4 psi 
DOWPB.  = .3537  + .02258RCIX 

- [(.3537  + .02258RCIX)2  - .03071 RCIX] /2 

in  all  other  cases. 


d)  Shallow  Snow 

This  portion  of  subroutine  IV3  calculates  the  pull  and 
resistance  coefficients  for  each  suspension  assembly  when  the  scenario 
variables  indicate  that  the  terrain  unit  is  covered  with  a shallow 
layer  of  snow.  For  this  model  shallow  snow  is  defined  as  snow 
covering  frozen  ground  at  a depth  less  than  the  characteristic  length 
of  the  tire  or  less  than  one  third  of  the  track  length  on  ground. 

Resistance  is  based  on  the  force  required  for  bulk  movement  of 
snow  whereas  traction  is  based  on  the  Coulomb  equation.  Thus  the 
towed  resistance  for  wheeled  vehicles  is  calculated  from 
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RT 


where 


"i 


(10n^biYZs)/(Ndilij) 

number  of  wheels  on  assembly  i 
total  number  of  wheel  axles  on  vehicle 

section  width  of  tire  on  assembly  i 
diameter  of  tire  on  assembly  i 
specific  weight  of  the  snow 


Zg  = snow  depth 

lij  = characteristic  length  of  tire  on  assembly  i 
at  inflation  j (see  Section  II. B. 6)) 
and  for  tracked  vehicles  from 


RT  = (Y2g)/(21ij) 

where  l^j  - the  characteristic  length  of  the  track. 

For  suspension  assemblies  that  are  never  towed,  RTOWT^  _ 0. 
assemblies  that  may  be  powered  or  braked  the  above  equations 

for  RTOWPB. 

1 • 

The  pull  coefficients  are  calculated  using 

TOWMAX  = tan{p+  (cA^jnj^)/Wi  wheeled  assembly 

TOWMAX  = tan  cp  + (cA^/Wj^)  tracked  assembly 
where  cp  = internal  angle  of  friction 
c = cohesion 

Aj^jAij  = ground  contact  area 

= number  of  wheels  on  assembly  i 
= weight  supported  by  assembly  i. 

The  pull  coefficient  is  then  set  to 

DOWPB^  = TOWMAX  - RT. 

In  all  cases  (fine  grained  soil,  slippery  fine  grained  soil, 
grained  soil,  muskeg  or  snow)  Subroutine  IV3  passes  on 


For 

are  used 


coarse 
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RTOWT^  - towed  resistance  coefficient 
RTOWPBj^  = powered/braked  resistance  coefficient 
DOWPB^  = pull  coefficient 
for  each  suspension  assembly  i. 

4.  Subroutine  IV4  - Summed  Pull  and  Resistance  Coefficients 

In  this  routine  the  individual  suspension  assembly  resistance 
and  pull  coefficients  are  summed  to  provide  overall,  average  vehicle 
coefficients.  The  formulas  concerning  traction  are: 

RTOWP  = sum  of  RTOWPB^*W^/GCWP  for  powered  assemblies  i 
DOWP  = sum  of  DOWPB^»Wj^/GCWP  for  powered  assemblies  i 
RTOWNP  = sum  of  RTOWTj^»Wj^/ (GCW-GCWP ) for  unpowered 
assemblies  i 

where  RTOWP  = average  powered  assembly  resistance  coefficient 
DOWP  = average  powered  assembly  pull  coefficient 
RTOWNP  = average  un-powered.  assembly  resistance  coefficient 

W^  r weight  supported  by  assembly  i 

GCWP  = weight  supported  by  all  powered  assemblies 

GCW  = gross  combination  weight 

RTOWPB^  = powered  resistance  coefficient  of  assembly  i 

DOWPB^  = pull  coefficient  of  assembly  i 

RTOWTji^  = towed  resistance  coefficient  of  assembly  i. 

The  formulas  concerning  braking  are  similar  to  the  above  except  that 
the  summation  is  over  the  braked  and  non-braked  assemblies. 


R-2058,  VOLUME  I 
Operational  Modules 


Page  89 


5.  Subroutine  IV5  - Slip  Modified  Tractive  Effort 

This  routine  modifies  the  vehicle  tractive  effort  vs.  speed 
relationship,  calculated  in  Subroutine  1116  of  the  VPP,  for  slippage 
of  the  running  gear  in  the  soil.  This  relationship  was  stored  as  the 
coefficients  of  a quadratic  relating  speed  to  tractive  effort  in  a 
"gear”.  Each  gear  was  specified  as  an  interval  in  the  speed  range  of 
the  vehicle. 

This  subroutine  calls  four  other  subroutines  named  TFORCF, 
VELFOR,  SLIP,  and  QUADS.  These  routines  calculate 

1.  the  soil  limited  maximum  tractive  effort  (TFOR) 

available  to  the  vehicle  [by  TFORCF] 

2.  the  maximum  velocity  (VX)  achievable  when  just 

overcoming  a given  resistance  [by  VELFOR] 

3.  the  slip  of  the  running  gear  (SLIP)  when  operating 

at  a certain  pull  force  coefficient  [by  SLIP] 

4.  the  least  square  fitted  quadratic  to  five  points  under  the 

constraint  that  the  fitted  curve  must  pass  through 

the  extreme  points  of  the  independent  variable, 

SPEED,  [by  QUADS]. 

Subroutine  IVS  first  retrieves  the  appropriate  ground  contact 
pressure  factor  (either  CPFCFGj  or  CPFCCGj)  and,  in  the  case  of 
soil  types  other  than  snow,  calls  subroutine  TFORCF  to  calculate  the 
maximum  tractive  effort  (TFOR)  available  from  the  soil.  In  case  of 
snow  cover  this  is  calculated  from  the  pull  (DOWP)  and  powered 
resistance  (RTOWP)  coefficients  times  the  effective  weight  on  the 
powered  wheels.  The  routine  then  performs  the  following  calculations 
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for  each  slope  (0j^)  and  gear  (NG). 

Gears  do  not  necessarily  correspond  to  real  gears  in  the 
transmission;  they  are  intervals  in  the  total  speed  range  for  which 
the  tractive  effort  vs.  speed  curve  (rim  pull  curve)  can  be  well 
approximated  by  a quadratic 

^ =^NG  + bfjGV  + GNGV^  ''l,NG  < v < V5^nG- 

Five  points  Fi.NG)*  i=1,---.5:  v^.i^^G  < ^i.NG. 

i=2,...5}  are  given  for  the  curve  for  each  gear  NG.  A "vertical”  gap, 

as  shown  in  figure  II. D. 2,  at  speed  v is  approximated  as  a 
gear  with  v^  NG  " *•*  “ '^5  NG  five  values  of  F as  indicated  by 

the  figure.  It  is  generally  assumed  that  is  the  maximum 

tractive  effort  in  gear  NG  (i.e.  f*-)  ^NG^f^i  ,NG^  that  F5^NG 


TFOR  cos  6|^ 


NB:  The  lines 
represent  rim 
pull  curve. 

The  entire  gear 

NG  = I is  represented 

by  the  point  at  v = 0 


VEHICLE  SPEED  (v) 


FIGURE  II.D.3  --  Tractive  Effort  vs.  Speed  Modification 

for  Soil  and  Slope 
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the  minimum  tractive  effort  in  gear  NG  (i.e.  i^Q<Fi  jjq)  . 

The  routine  fetches  the  coefficients  c^jq)  and 

the  points  Fi,NG)  fo*"  each  gear.  These  will  be  modified 

for  slip.  First  the  total  tractive  effort  available  from  the  vehicle 

in  each  gear  NG , Fi^^GecF*  corrected  by  a terrain  unit  elevation 
factor  e(,p^  is  compared  to  the  slope  modified  maximum  surface 
traction  TFORcosQj^.  If  not  all  the  vehicle  tractive  force  can  be 
applied  (F-i^jjQeQp  TFORcos0j^)  the  minimum  surface  tractive 

force  f'5^fjQecp  is  compared  to  the  maximum  surface  traction.  If 
the  vehicle  tractive  effort  exceeds  the  maximum  surface  tractive  force 
throughout  the  gear  > TFORcosSj^)  the  entire  gear  is 

approximated  by  100?  slip,  the  speeds  are  all  set  to  zero  and 

the  tractive  effort  is  set  to  a constant  TF0Rcos9j^.  The  quadratic 

then  reduces  to  = TFORcosej^  with  t>j^Q=C[^Q=0 . 

If  the  soil  can  support  a tractive  effort  between  the  minimum 
and  maximum  of  the  gear  NG  < iFORcosej^  < F-i^^G^*  the 

subroutine  VELFOR  is  called  to  determine  the  speed  v*  in  the  interval 

,NG»V5  at  which  the  vehicle  produces  the  maximum  surface 
tractive  effort.  The  interval  representing  the  gear  NG  is  now 

adjusted  to  be  = v*,V5^j^jq],  the  maximum  tractive  effort  for 

this  gear  is  reset  to 

F(v«)  = a^Q  + bfjQV*  + c^q(v«)2 

and  five  new  values  of  tractive  effort  are  calculated  at  equally 

spaced  speed  values  from  v»  to  These  become  the  new  gear 

^ *''^i  ,NG>fi  ,NG^  > i=1,...,5:  vi^j^q=v*}.  If  this  gear  was  a 
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vertical  gear,  the  five  points  would  be  equally  spaced  from  jjq  to 
^5,NG  all  at  v-] 

Tf  the  maximum  available  tractive  effort  in  the  soil,  modified 
for  slip,  is  greater  than  the  rim  pull  tractive  effort,  corrected  for 
elevation,  everywhere  in  the  gear  (TFORcos0j^>  ngScf^ 
computations  proceed  directly  to  adjustment  of  the  speeds  for 

slip. 


The  above  computations  have  the  effect  of  limiting  the  tractive 
effort  vs.  speed  curve  of  the  vehicle,  the  rim  pull  curve,  by  the 
maximum  tractive  effort  available  from  the  terrain  unit  surface 
material.  Each  of  the  five  points  < v . ^ ^ F . ^ for  each  gear  NG 
are  now  individually  adjusted  for  slip,  altitude,  and  extra  drag  using 
the  equations  below.  The  force  coefficient  is  calculated  by 

y " ^^i,NG  ®CF  rw)/(GCWPco5ei<)  - CF 
where  r^  = proportion  of  vehicle  weight  on  running  gear  (=1 
except  possibly  for  water  covered  terrain  units) 

CF  = slip  curve  correction  factor  (calculated  in  Subroutine 
TFORCF) 

GCWP  = gross  combination  weight  on  powered  suspension 
elements. 

This  ratio  is  used  by  Subroutine  SLIP  to  calculate  the  slip 
required  of  the  traction  elements  (SLIPX)  to  produce  force  F^  for 
the  given  vehicle  and  terrain  unit.  The  vehicle  speed  is  then 
adjusted  by 
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''c  = Vi^NG  (1-  - SLIPX) 

and  the  new  point  replaces  ( Vi  ^Ng)  in 

the  tractive  effort  vs.  speed  curve  for  the  current  terrain  unit. 

For  water  covered  terrain  units  a hyperbolic  drag  is  calculated 

from 

Wq  = ( .001 IICd  a Vq2)/2 
where  Cj^  = drag  coefficient 

A = submerged  frontal  area 
and  this  drag  is  subtracted  from  nG®CF* 

For  terrain  units  designated  as  trails,  a cornering  drag  for 
wheeled  assemblies  is  calculated  by 

Fc  = Fg  {sum  of  (WgCOSGi^VijjG.MPH/'*  "I  • 

[ .75/n^a'2.(TFOR/GCWP)  ] for  all  wheeled  assemblies  1 
where  F^  = superelevation  factor  given  by 
Fg  = 1 - 7.495R'e 
e = superelevation  angle 
R'  = radius  of  curvature  in  feet 

''iNG,MPH  = speed  Vi^fjG  if’  MPH 
- weight  on  axle  1 
n^  = number  of  wheels  on  axle  1 
0/1  = cornering  stiffness  of  tires  on  axle  1 
This  force  is  subtracted  from  F^  nG®CF* 

The  five  new  tractive  effort  vs.  slip  corrected  speed  points 
for  each  gear  are  now  fitted  with  a quadratic  which  is  constrained  to 
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pass  through  the  points  for  the  minimum  and  maximum  slip  corrected 
speeds  of  the  gear  using  Subroutine  QUAD5.  Before  returning, 
subroutine  IV5  sets  the  maximum  available  tractive  effort  value  for 
each  slope,  FORMX(K),  and  the  speed  at  which  FORMX(K)  occurs, 
VFMAX(K). 


a)  Subroutine  TFORCF  - Soil  Limited  Tractive  Effort 

The  drawbar  pull  and  traction  vs  excess  rating  cone  index 
relationships  used  in  NRMM  are  based  on  tests  conducted  at  20?  slip 
(Turnage  (1972)).  Subroutine  IV5  requires  tractive  effort  at  100? 
slip. 

This  routine  calculates  the  slip  curve  correction  factor,  CF, 
and  the  soil  limited  tractive  effort,  TFOR,  according  to  the  following 
formulas: 

Fine  Grained  Soil 

Tracked  Vehicles 

CF  = DOWP  - .758  + RTOWP  for  CPFC  < 4 

TFOR  = (CF  + .82)GCWP 


CF  = DOWP  - .671  + RTOWP 
TFOR  = (CF  + .71)GCWP 
Wheeled  Vehicles 

CF  = DOWP  - .674  + RTOWP 
TFOR  = (CF  + .76)GCWP 
CF  = DOWP  - .585  + RTOWP 


for  CPFC  > 4 


for  CPFC  < 4 

for  CPFC  > 4 
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TFOR  = (CF  + .655)GCWP 
Coarse  Grained  Soil 

Tracked  Vehicles 


CF  = 

.074 

for 

rigid  track 

TFOR 

= (CF  + 

.568)GCWP 

CF  = 

. 1 

for 

flexible  track 

TFOR 

= (CF  + 

.695)GCWP 

Wheeled  Vehicles 

CF  = DOWP  - .56  + RTOWP 
TFOR  = (CF  + .575)GCWP 

Muskeg 

Wheeled  Vehicles  and  CPFC  2 ^ 

CF  = DOWP  - .68  + RTOWP 
TFOR  = (CF  + .745)GCWP 
All  other  cases 

CF  = DOWP  - .88  + RTOWP 
TFOR  = (CF  + .91)GCWP 

b)  Subroutine  VELFOR  - Maximum  Velocity  Overcoming  a Given 

Resistance 

This  routine  finds  the  maximum  velocity,  v*,  that  a vehicle  can 
travel  while  overcoming  a given  resistance  from  the  tractive  effort 
vs.  speed  curve  after  adjustment  for  soil  limited  traction  and  driving 
element  slip. 
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The  tractive  effort  vs.  speed  curve  is  given  by 

F = ajjG  + bfjQV  + Cjiqv^, 

a sequence  of  quadratics  in  various  speed  ranges  (v^  NG  ^ ^ 

where  NG  indexes  the  speed  ranges  from  1 to  NGR,  the  number 
of  speed  ranges  (or  gears).  Note  that  for  this  routine  there  are 
three  speeds  given  for  each  gear.  This  routine  in  effect  solves  for 
maximum  v given  an  F by  solving  the  quadratic  equation 

°NGV^  + bjjQV  + (aj^G  - F)  = 0. 

Let  the  discriminant  be  denoted  by 

“ '^NG^  ■ ^^^NG  - F)Cf,G' 

For  d2  < 0 it  must  be  true  that  c^j^  i 0 and  afjG  - F ^ 

0.  Then  the  quadratic  has  no  real  solution.  If  Cj^^  > q,  the 
tractive  effort  vs.  speed  curve  for  the  gear  NG  lies  entirely  above 
the  value  F so  the  speed,  v*,  that  the  vehicle  can  achieve  is  set  to 
the  maximum  in  the  gear,  namely  v»  = If  < 0 the  entire 

curve  for  the  gear  is  below  the  value  F so  the  vehicle  cannot  overcome 
the  resistance  in  the  gear  NG  and  thus  a lower  gear  is  tested. 

For  d2  = 0 two  cases  can  occur.  For  Cj^q  ^ q there  is  a 
unique  intersection  between  the  quadratic  and  the  line  F = constant. 
Since  a single  point  intersection  (tangency)  between  the  tractive 
effort  vs.  speed  curve  and  the  line  F = constant  is,  realistically, 
similar  to  no  intersection  at  all,  decisions  like  those  for  the  case 
of  d2  < 0 are  made  when  Cj^q  < 0 [seek  a lower  gear]  and  when  cnq 
> 0 [set  V*  = When  c^jQ  = 0,  then  bjjQ  = 0 (since  d^  = 

0)  and  thus  the  tractive  effort  vs.  speed  curve  for  gear  NG  is  a 
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horizontal  line  through  If  F < a^jQ  the  vehicle  can  proceed 

at  maximum  speed  in  the  gear  [set  v*  = and  if  F > aj^Q  the 

vehicle  cannot  overcome  the  resistance  F in  gear  NG  and  thus  a lower 
gear  is  sought. 

For  a positive  discriminant,  d^  > o,  and  Cj^q  = o,  the 
tractive  effort  vs.  speed  curve  in  gear  NG  is  a straight  line.  If  the 

intersection  of  this  line  with  F = constant  is  to  the  right  of  the 

maximum  speed,  in  gear  NG  then  if  bj^jQ  > 0 the  curve  is 

below  F = constant  in  the  speed  range  NG  and  the  vehicle  cannot 

overcome  the  resistance  F in  gear  NG  and  thus  a lower  gear  is  sought. 

If  < 0 then  the  curve  is  above  F = constant  and  v*  = v^  jjq. 

If  the  intersection  is  to  the  left  of  the  minimum  speed,  v^  in 

gear  NG  then  the  reverse  is  true,  namely  that  v*  = v^  if  bj^jQ  > 

0 and  a lower  gear  is  sought  if  bj^^  < o.  For  the  case  when  the 

intersection  occurs  at  (v,F)  and  < v < V3  jjq  then  v*  = v for 

< 0 and  a lower  gear  is  sought  for  bj^Q  > 0. 

For  a positive  discriminant  and  c^j^  i 0 there  are  two  real 
roots  for  the  quadratic  equation,  the  greater  being  designated  by  v = 
RH  while  the  lesser  by  v = RL.  Three  cases  may  be  distinguished,  the 
first  for  both  roots  negative.  Then  in  the  range  of  a gear  the 
tractive  effort  vs.  speed  curve  is  either  entirely  above  (indicated  by 
'^NG  ^ entirely  below  (indicated  by  bj^^  < 0)  the  line  F = 

constant.  The  v*  = ''3,NG  lower  gear  is  sought,  respectively.  In 
the  second  case  only  one  root  is  positive,  then  results  similar  to  the 
prior  d^  > 0 , c = 0 case  are  used.  The  curves  for  positive  v are 


R-2058,  VOLUME  I 
Operational  Modules 


Page  99 


not  straight  lines  in  this  case  but  they  are  strictly  monotonic  with 
less  and  less  curvature  for  increasing  v.  In  the  third  case  when  both 
RH  and  RL  are  positive  a test  is  made  as  to  their  relationship  to 

'^1,NG  ''3,NG-  cases  are  distinguished  by  the  determination 

of  whether  the  tractive  effort  vs.  speed  curve  is  above  or  below  F = 
constant.  If  it  is  above  at  then  the  highest  root  in  the 

interval  < v < V3^iqQ  is  used  as  v*.  If  the  curve  is  above 

at  both  and  V3^I^q,  then  v*  = V3^filQ.  If  the  curve  is  below 

^1,NG  3 lower  gear  is  sought. 

If  the  subroutine  cannot  find  a gear  for  which  the  tractive 
effort  exceeds  the  resistance  a final  test  against  the  maximum 
tractive  effort,  FORMX,  is  made.  If  FORMX  F,  the  velocity  v*  = 

'^maxj  the  velocity  at  which  the  vehicle  exhibits  its  maximum 
tractive  effort.  If  FORMX  < F,  then  v»  = 0. 

c)  Subroutine  SLIP  - Powered  Traction  Element  Slip  for  Given 

Traction  Coefficient 

This  routine  uses  emp-irical  equations  presented  in  Appendix  A 
of  Rula  and  Nuttall  (1971)  to  determine  the  longitudinal  slip  of  the 
powered  traction  elements  in  order  to  produce  a given  traction  (pull) 
coefficient,  y.  These  relationships  are  given  by  the  following: 

Fine  Grained  Soil 
Tracked 

S = .0257y  - .0161  + .015l9/( .8353  - y)  for  CPFC<4 

S = .0733y  - .0063  + .00734/( .7 177  - y)  for  CPFC>4 
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Wheeled 

S = .0621y  - .021  + .0l888/(  .7794  - y)  for  CPFC<4 

S = .084y  - .016  + .014l4/( .6697  - y)  for  CPFC>4 

In  case  of  wheeled  vehicles  with  CPFC  4 on  fine  grained  soil  the 
slip  is  further  reduced  by  dividing  it  by  1.1  if  the  vehicle  is 
equipped  with  a locking  differential. 

Coarse  Grained  Soil 
Tracked 


S = -.0083  + .005312/( .573  - y)  for  rigid  tracks 
S = 1 .074y  - .72 

+ C(1.074y  - .72)2  + .09y  + .009]1/2 

for  flexible  tracks 


Wheeled 


S = .0074y  - .0061  + . 00374/ (. 5785  - y) 

This  last  value  of  S is  further  reduced  by  dividing  by  1.1 
if  the  vehicle  is  equipped  with  a locking  differential. 

Muskeg 

S = .0585y  - .0106  + .01336/(.964  - y)  for  tracked 

vehicle  with  CPFC  < 4 

S = .1024y  - .00864  + .0 1062/ ( .7564  - y)  all  others 
In  the  case  of  wheeled  vehicles  with  a locking  differential,  S is 
further  reduced  by  dividing  by  1.1. 

Shallow  Snow 

S = .3(1  - [l-y]''/^)  for  y < 1 

S = 1 for  y > 1 

In  all  cases  if  S lies  outside  the  interval  0 < S < 1 it  is  set  to 
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d)  Subroutine  QUAD5  - Quadratic  Fit  to  5 Points 

This  subroutine  uses  the  least  square  criteriorr  to  fit  a 
quadratic  to  five  points  under  the  constraints  that  the  curve  must 
pass  through  the  points  with  the  lowest  and  highest  value  of  the 
independent  variable. 

6.  Subroutine  IV6  - Resistance  Due  to  Vegetation 

This  subroutine  calculates  the  resistance  to  vehicle  motion 
caused  by  vegetation  when  the  vehicle  attempts  to  override  it.  Since 
vegetation  is  categorized  into  NI  classes  on  the  basis  of  stem 
diameter,  separate  resistance  forces  are  calculated  for  each  class. 

If  the  terrain  unit  is  bare  of  vegetation  all  the  resistances  are  set 
to  zero.  All  resistances  are  also  set  to  zero  for  the  smallest  stem 
diameter  class.  Otherwise,  for  each  stem  diameter  class  i beginning 
at  class  2 the  force  needed  to  override  the  largest  tree  in  class  i is 
given  by 

Fv,U1  = (56/5.8)«d3„i 

and  the  force  against  the  vehicle  pushbar  exerted  by  such  an  override 
attempt  is  given  by 

^vm,i+1  “ “ ^PB/2)d^^j^. 

The  force  required  to  override  all  the  vegetation  in  classes  i and 
stem  diameters  is  given  by 

^v,i+1  = 12w100[sum  of  jd^j  for  j=1  to  i] 
where  "^ymi  = stem  diameter  of  the  largest  stems  in  class  i 
dyj  = stem  diameter  of  representative  stem  in  class  j 
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bpg  = push  bar  height  of  vehicle 
w = width  of  vehicle 

j = density  of  stems  in  class  j. 

These  relationships  may  be  found  in  Rula  and  Nuttall  (1971)  starting 
on  page  157. 

7.  Subroutine  IV7  - Driver  Dependent  Vehicle  Vegetation  Override  Check 

This  routine  determines  the  maximum  stem  diameter  class  which 
the  driver  will  try  to  override.  For  each  class  not  overridden  an 
indicator  is  set  as  to  whether  it  was  driver  tolerance  or  pushbar 
capacity  that  limited  the  override.  The  driver  tolerance  is  based  on 
longitudinal  acceleration  and  is  currently  limited  by  2 g*s.  Thus  if 

for  stem  class  i,  > FmPB*  the  indicator  will  be  set  to  no 

override  [IMPACT( i) = 1 ] due  to  pushbar  weakness.  If  ^ymi/GCW  > 2., 
the  indicator  will  be  set  to  no  override  [IMPACT( i) =2]  due  to  driver 
limit.  If  both  limits  are  exceeded  IMPACT(i)=3.  The  maximum  stem 
diameter  class  to  be  overridden  (indexed  by  MAXI)  will  be  the  largest 
stem  class  for  which  neither  limit  was  exceeded. 

8.  Subroutine  IV8  - Total  Resistance  Between  Obstacles 

In  this  routine  the  resistance  to  vehicle  motion  due  to  soil, 
slope  and  vegetation  is  summed  to  produce  a resistance  between 
obstacles.  For  each  slope  (up, level, down  indexed  by  k)  the  resistance 
while  overriding  a single  tree  of  stem  diameter  class  i is  given  by 
Rflki  = GCWsinej^  + (RTOWP»CGWP  + RTOWNP»CGWNP ) r^^cose^  + Fyii 
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and  the  resistance  while  overriding  all  vegetation  in  stem  diameter 
classes  i-1  and  smaller  is 


Rlki  = GCWsine^  + (RT0WP»GCWP  + RT0WNP*GCWNP)rwCOsek  + Fyi 
where  GCW  = gross  combined  weight 

GCWP  = gross  combined  weight  on  powered  elements 
GCWNP  = gross  combined  weight  on  unpowered  elements 
= slope  angle 

RTOWP  = powered  elements  resistance  coefficient 
RTOWNP  = unpowered  elements  resistance  coefficient 


= proportion  of  vehicle  weight  on  running  gear 
elements  (=1  except  possibly  for  water  covered 

terrain  units) 


Fvii  = force  required  to  override  the  largest  tree 
in  stem  diameter  class  i-1 

Fvi  = force  required  to  override  vegetation  in  stem 
diameter  classes  i-1  and  smaller. 


9.  Subroutine  IV9  - Speed  Limited  by  Resistance  Between  Obstacles 


This  routine  uses  Subroutine  VELFOR  (described  as  part  of 
Subroutine  IV5  above)  to  determine  the  maximum  speed  the  vehicle  could 
travel  while  overcoming  the  resistance  and  Rxki  calculated 

in  Subroutine  IV8. 


F-2058,  VOLUME  I 
Operational  Modules 


Page  104 


If  the  resistance  due  to  soil,  slope  and  vegetation  in  a 
certain  stem  diameter  class  is  larger  than  that  which  the  vehicle  is 
capable  of  overcoming  at  any  speed,  the  velocity  is  set  to  zero  and 
MAXI  is  lowered  to  reflect  the  fact  that  vegetation  override  will  not 
be  attempted  for  that  class.  In  traverse  mode  (NTRAV=1)  all 
velocities  for  slopes  other  than  the  designated  slope  are  set  to  zero. 

10.  Subroutine  IV10  - Speed  Limited  by  Surface  Roughness 

Prior  to  runs  of  NRMM,  a cross  plot  of  speed  vs.  surface 
roughness  was  made  from  repeated  runs  of  VEHDYN  (See  Chapter  1. 
Overview).  Each  of  these  cross-plots  implies  that,  for  the  given 
surface  roughness,  the  speed  given  is  the  maximum  speed  the  vehicle 
can  operate  without  subjecting  the  driver  to  vibrations  exceeding  a 
certain  level  of  absorbed  power.  INRMM  allows  for  several  of  these 
plots,  giving  results  for  several  levels  of  absorbed  power,  to  be 
entered  as  part  of  the  vehicle  data.  The  choice  of  which  one  to  use 
is  indicated  by  scenario  variable  LAC. 

In  this  routine  the  speed  vs.  surface  roughness  array  is 
searched  and  linearly  interpolated  for  the  maximum  speed  a vehicle 
could  travel  without  subjecting  the  driver  to  vibrations  resulting  in 
an  absorbed  power  greater  than  the  limits  implied  by  the  choice  of 


LAC. 
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11.  Subroutine  IV11  - Total  Braking  Force  - Soil/Slope/Vehicle 

This  routine  calculates  the  total  braking  force  available  to 
the  vehicle.  Two  basic  components  are  calculated.  The  first  is  the 
braking  force  due  to  the  resistance  of  the  running  gear  which  is 
always  present  regardless  of  whether  the  brakes  are  on  or  not.  This 
force  is  estimated  as 

X-|  z (RTOWB^GCWB  + RTOWNB*GCWNB) r^ 

where  RTOWB  = resistance  coefficient  of  braked  running  gear  elements 
RTOWNB  z resistance  coefficient  of  unbraked  running  gear 
elements 

GCWB  z gross  combined  weight  on  braked  running  gear  elements 
GCWNB  z gross  combined  weight  on  unbraked  running  gear 
elements 

z proportion  of  vehicle  weight  supported  by  running 
gear  elements  (=1  except  possibly  for  water  covered 
terrain  units) . 

The  other  component  calculated  is  due  to  the  retardation  force  when 
the  brakes  are  applied.  The  maximum  retardation  force  available  from 
the  terrain  unit  surface  material  is  calculated  by 
^2  = (DOWB  + RT0WB)GCWBr„ 

where  DOWB  is  the  pull  coefficient  of  the  powered  wheels.  This  force, 
adjusted  for  slope,  is  compared  to  the  maximum  force  the  vehicle  can 
exert,  Xgp,  the  lesser  of  the  two  being  used.  The  total  braking  is 
the  sum  of  these  two  components  plus  or  minus  the  force  due  to  gravity 
on  slopes.  Thus 

^BFk  = GCWr^^sin9j^  + X-jCosQj^  + minCXgp  ,X2Cosej^] 
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where  - slope  angle. 

^BFk  is  negative  [due  to  sinOj^  on  downhill  slopes]  a no-go 
indicator  is  set  , N0G0BF=1,  under  the  supposition  that  the  vehicle 
cannot  be  controlled  without  sufficient  braking.  Calculations  are 
continued  since  the  situation  being  simulated  may  not  actually  stop 
the  vehicle,  as  for  instance,  on  a long  straight  downhill  slope  for 
which  the  next  terrain  unit  is  flat  and  sufficiently  bare  of 
obstructions  to  allow  run-out. 

12.  Subroutine  IV12  - Maximum  Braking  Force  - 

Soil/ Slope/Vehicle/ Dr iver 

In  this  routine  the  maximum  braking  force  calculated  in  the 
previous  routine  may  be  attenuated  due  to  simulation  of  driver 
actions.  It  has  been  observed  that  drivers  do  not  always  use  the 
maximum  braking  force  available  either  due  to  choice  or  lack  of  skill. 
In  addition  drivers  may  not  even  use  all  of  that  braking  force, 
preferring  to  always  keep  some  in  reserve  for  "safety's  sake". 

These  actions  are  modeled  by  two  vehicle  inputs: 

DCLMAX  = the  maximum  braking  force  (in  g’s)  a driver  will 
use  due  to  comfort  or  skill  (the  "lunch 
box"  limit) 

SFTYPC  = the  percentage  of  the  theoretical  maximum 
the  driver  will  actually  use  "for  safety" 

(e.g.  to  prevent  lockup  of  wheels). 

If  the  user  wishes  no  restriction  on  the  performance  of  the  vehicle 
due  to  driver  imposed  limits,  the  scenario  variables  DCLMAX  and  SFTYPC 
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In  this  routine  the  maximum  speed  at  which  a driver  may  proceed 
to  just  stop  within  the  visibility  distance  without  exceeding  the 
braking  force  (calculated  in  the  previous  routine)  is  calculated. 

The  recognition  distance  is  calculated  by: 


Dy  hg/bO 

visibility  distance 


driver  eye  height. 


The  deceleration  due  to  the  braking  force  the  driver  will  actually  use 


is  given  by 


^ck  = ^MXk  e/GCW 

where  g = acceleration  of  gravity 

k = slope  index  (1  = up,  2 = level,  3 = down) 

®MXk  = maximum  braking  force  actually  used  on  slope  k. 

The  maximum  speed  limited  by  visibility,  is  calculated  from  the 

solution  of  the  equation  for  recognition  distance  required  to  stop, 
which  is 

Dp  = tpVvk  + Vvk/(2BMXk) 

where  t^  = reaction  time  between  recognition  and  application  of 


brakes. 
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If  the  braking  force  is  nonpositive,  the  speed  limited  by 

visibility  is  set  to  zero.  In  addition,  if  is  positive  but  less 
than  VISMNV,  the  minimum  speed  the  driver  will  accept  despite  full 
obscuration  of  his  vision,  then  is  set  to  VISMNV. 

14.  Subroutine  IV14  - Selected  Speed  Between  Obstacles 

This  routine  chooses  the  minimum  among  the  following  speeds  for 
travel  between  obstacles.  This  selection  is  made  for  each  slope  - 
vegetation  override  class. 

VTIREj  = maximum  safe  tire  speed  at  inflation  pressure  j 

99%  of  VsoiL,k,i  = velocity  limited  by  soil,  slope 

and  vegetation  resistance  for  slope 

k overriding  vegetation  in  classes 
i-1  and  smaller 

Vrij)  z velocity  limited  by  surface  roughness 
Vvk  = velocity  limited  by  visibility  and  braking  force 
on  slope  k 

A separate  speed  limit,  is  chosen  for  each  slope  k (1 

= up,  2 = level,  3 = down)  and  overriding  vegetation  in  class  i-1  and 

smaller.  Less  than  100%  of  k i used  since  the  velocity  - 

distance  curve  has  an  asymptote  at  '>fs01L,k,i^  which  means  that  a 

vehicle  can  never  accelerate  up  to  Vcon  i 

bUiL , k , 1 • 
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15.  Subroutine  IV15  - Maximum  Speed  Between  and  Around 

Obstacles 

This  routine  calculates,  for  each  slope  k and  vegetation 
override  index  i,  the  maximum  speed  the  vehicle  can  achieve 

while  traveling  between  obstacles,  and  the  speed  which  the 

vehicle  can  achieve  in  the  terrain  unit  while  avoiding  all  obstacles. 

Between  obstacles,  VBOj^^^  represents  the  maximum  speed  a 
vehicle  can  travel  while  overriding  vegetation  in  stem  diameter 
classes  i-1  and  smaller  while  avoiding  all  vegetation  in  stem  diameter 
classes  i and  larger  by  maneuvering.  This  maneuvering  will  lower  the 
overall  average  speed  due  to  path  elongation  and  a variety  of  other 
factors.  The  extent  to  which  this  speed  is  lowered  depends  on  PAV^^ 
the  percentage  of  area  denied  due  to  maneuvering  around  vegetation  in 
stem  diameter  classes  i and  greater.  The  relationships  are: 

Tracked  Vehicles 

for  PAV^  < 1%  no  reduction  (VBOj^j^  = 
for  1%  < PAV^  < 75S 

Smg  = [(392.93  - Vttki>PAVi]/4  + (7Vttki  - 3*392. 93)/4 
VBOj^i  = fnintSMG^Vttki^ 
for  1%  < PAV^  < 52.5% 

^mG  = 453.2  - 8.603PAVi 
VBOki  = min  [Smg,  ^ttki^ 
for  52.5%  < PAV^  set  VBOi^i  = 0 
Wheeled  Vehicles 

PAVi  _<  3%  no  reduction  (VBOj^j^  = 


for 
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for  3?  < PAV^  < 7J 

Smg  = [(^50.33  - Vttki)PAVi]/4  + (7Vttki  - 3»450.33)/4 
VBOki  = rain  [Smg,  Vttki^ 
for  < PAVj^  < 41.3$ 

Smg  = 542.11  - 13.1 12PAVi 
VBOj^^  = rain  [Smg,  ^ttki^ 
for  41.3$  < PAV^  set  = 0 

Around  and  between  obstacles,  VAVOIDj^^  represents  the  overall 
maximum  speed  the  vehicle  can  travel  while  overriding  vegetation  in 
stem  diameter  classes  i-1  and  smaller  and  avoiding  both  obstacles  and 
vegetation  in  stem  diameter  classes  i and  greater.  The  equations  used 
to  calculate  VAVOIDj^^  are  similar  to  those  used  above  to  calculate 
VBOj^i  except  that  ADTj^,  the  percentage  area  denied  by  avoiding 
obstacles  and  vegetation  in  stem  diameter  classes  i and  greater,  is 
used  in  place  of  PAV^. 

VAVOIDj^^^  for  k = 1,2,3  if  NTRAV  = 3 
or  k = 1 if  NTRAV  = 1 

i = 1 , . . . ,NI 

is  the  complete  set  of  speeds  calculated  for  driving  strategy  which 
avoids  obstacles.  The  next  comparable  set  of  speeds  is  VOVERj^^^, 
which  simulates  the  driving  strategy  that  overrides  obstacles.  From 
these  two  sets  of  speeds  the  overall  terrain  unit  speed  is  selected 
with  some  modifications  in  the  last  two  routines  of  the  Areal  Module, 
Subroutines  IV20  and  IV21. 
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16.  Subroutine  IV16  - Obstacle  Override  Interference  and  Resistance 

This  routine  uses  a simplistic  three  dimensional,  linear 
interpolation  routine,  subroutine  D3LINC,  on  the  arrays  developed  from 
the  Obstacle  Module,  OBS78B.  prior  to  execution  of  the  Operational 
Modules  of  the  INRMM.  Three  tables  were  developed  from  the  Obstacle 
Module 

i)  FOO  vs  OBH,  OBAA,  and  OBW 

^OOMAX  vs  OBH,  OBAA,  and  OBW 
iii)  CLEAR  vs  OBH,  OBAA,  and  OBW 
where  OBH  = obstacle  height  (denoted  by  h^  in  TPP) 

OBAA  = obstacle  approach  angle  (denoted  by  a ^ in  TPP) 

OBW  = obstacle  base  width  (denoted  by  W in  TPP) 

o 

FOO  = overall  tractive  effort  to  override  obstacle 

^OOMAX  = maximum  tractive  effort  required  during  override 
of  obstacle 

CLEAR  = minimum  clearance/maximum  interference  during 
override  of  obstacle 

The  outputs  of  this  routine  are  FOM,  FOMMAX,  and  CLR,  which  are  the 
overall  tractive  effort,  maximum  tractive  effort,  and 
clearance/interference  for  overriding  obstacles  in  the  current  terrain 
unit  respectively. 

If  this  routine  determines  that  vehicle/obstacle  interference 
occurs,  the  flag  NEVERO  is  set  to  3- 
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17.  Subroutine  IV17  - Driver  Dependent  Vehicle  Speed  Over  Obstacles 

The  routine  linearly  interpolates  two  arrays  developed  from  the 
Ride  Dynamics  Module,  VEHDYN,  prior  to  execution  of  the  Operational 
Modules  of  the  INRMM.  These  tables  give 

i)  VOOB  vs  OBH 

ii)  VOOBS  vs  OBSE 

where  OBH  = obstacle  height  (denoted  by  h^  in  TPP) 

OBSE  = effective  obstacle  spacing  (calculated  in 
subroutine  IV1) 

VOOB  = maximum  constant  forward  velocity  during  override 
of  an  obstacle  of  height  h^  which  results  in  a 
vertical  acceleration  on  the  driver  (or  some  other 
critical  location)  limited  by  a certain  g level. 
Currently  2.5g  at  the  driver's  station  is  used. 

VOOBS  = maximum  constant  forward  speed  during  the  override 

of  obstacles  whose  spacing  is  OBSE.  This  maximum  speed 
is  limited  by  both  the  absorbed  power  criterion  and 
the  vertical  acceleration  criterion  on  the  driver  (or 
some  other  critical  location  on  the  vehicle). 

The  relationship  between  VOOBS  and  OBSE  is  used  here  without 
regard  for  obstacle  height.  Current  practice  is  to  generate  this 

relationship  using  VEHDYN  with  a constant  obstacle  height  for  all 

* « 

spacings.  The  height  used  should  be  that  which  limits  the  vehicle 
speed  to  15  mph.  as  determined, from  the  single  obstacle  relation. 
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The  logic  of  the  routine  is  that  if  the  average  distance 
between  obstacles  (OBSE  - WA)  is  less  than  the  wheel  base  or  track 
length  on  the  ground,  only  the  second  array  (VOOBS  vs.  OBSE)  is 
interpolated  and  the  resulting  speed  is  used  for  VOLA,  the  maximum 
obstacle  approach  speed. 


If  the  distance  between  obstacles  is  between  the  wheelbase  or 
track  length  on  the  ground  and  twice  the  full  wheelbase  or  track 
length  both  arrays  are  interpolated  and  the  lesser  of  the  two  speeds 
is  used  for  VOLA.  If  the  distance  between  obstacles  is  greater  than 
twice  the  wheelbase  or  track  length  on  the  ground  then  only  the  first 
array  (VOOB  vs.  OBH)  is  interpolated  and  the  resulting  speed  is  used 
for  VOLA. 


18. 


Subroutine  IV18  - Speed  Onto  and  Off  Obstacles 


This  routine  determines  the  maximum  approach  speed,  at 

the  first  contact  with  an  obstacle  and  the  exit  speed,  VXTj^j^^  when 
departing  the  obstacle  after  overriding.  Possible  adjustments  to  the 
speed  between  obstacles,  VBOj^^^^  are  also  made.  If  the  prior  routines 
of  the  Areal  Module  have  determined  that  there  cannot  be  override  or 
there  can  be  no  gain  in  speed  due  to  override,  an  indicator  NEVERO  is 
set  to  1,2  or  3.  In  this  case  the  routine  sets  all  the  speeds  VAj^^  = 

= VBO^i  = 0. 


If 

the  vehicl 


the  obstacles  are  so  closely  spaced  (TL  > OBSE  - WA)  that 
e essentially  is  always  in  contact  with  one  of  them  then 


an 
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FIGURE  I I.D.4  — 
Flow  Chart  of 
Subroutine  IV18 
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assumption  is  made  that  the  driver  will  choose  to  proceed  at  a steady 
speed  over  the  terrain  unit  (i.e.,  no  acceleration/deceleration 
between  obstacles).  This  speed,  is  determined  to  be  the 

maximum  speed  limited  by  the  driver’s  comfort  level  overriding 
obstacles  (VOLA),  the  general  roughness  level  (V^jj^)  ^ the 
visibility/braking  force  limit  , the  tire  limit  (VTIREj)  if 

there  are  wheeled  suspension  elements,  and  the  soil/ vegetation/ 
slope/obstacle  resistance  limit  (VSOILj^j^)  calculated  by  VELFOR,  a 
subroutine  described  above  in  Section  II.D.5.b).  The  resistance  used 
here  is  that  of  the  soil/vegetation/slope  for  the  terrain  unit,  plus 
that  resistance  due  to  overriding  the  obstacle,  FOM.  The  speed 
"between  obstacles",  VBO^^.  ig  then  calculated  from  Vttki  by 
attenuating  due  to  possible  maneuvering  to  avoid  vegetation  in 

stem  diameter  classes  i and  greater.  This  calculation  is  the  same  as 
that  described  in  Subroutine  IV15  above  (Section  II.D.15)).  Then  the 
approach  and  exit  speeds  are  all  set  to  the  same  value  as  the  speed 

between  obstacles  (VAj^^  = VXTj^i  = VBOj^i).  This  will  guarantee 
that  no  acceleration/deceleration  can  occur  since  no  speed  changes 
across  and  between  obstacles  will  occur. 

For  the  case  where  the  vehicle  can  fit  entirely  between 
obstacles  (TL  < OBSE  - WA)  it  is  theoretically  possible  that  the 
vehicle  could  accelerate  to  speed  or  some  lesser  speed  after 

leaving  the  obstacle  at  speed  VXTj^j^  before  braking  in  order  to 
reduce  speed  to  VAj^^^  when  approachiig  the  next  obstacle.  In  this 
case  the  three  speeds,  VAj^^,  and  are  calculated  as 
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follows . 

The  resistance  of  soil  and  slope  is  given  by  , the 

soil/slope/ vegetation  resistance  avoiding  vegetation  in  classes 
1,2,...,NI.  The  use  of  this  resistance  makes  the  assumption  that 
obstacles  are  bare  of  vegetation. 

For  each  vegetation  class  i and  slope  class  k the  approach 
speed,  is  set  equal  to  the  lesser  of  the  soil/slope/vegetation 

limited  speed  and  the  human  tolerance  limited  obstacle 

impact  speed  (VOLA).  A subroutine,  called  FORVEL,  is  used  to  evaluate 
the  tractive  effort,  F,  available  at  speed  VAj^^.  This  subroutine 
searches  the  various  speed  ranges  or  "gears"  and  then  evaluates  the 
appropriate  quadratic.  A force  deficit  is  calculated  by 
A F r + Fqq  _ F ^ 

If  AF  £ 0 then  there  is  enough  tractive  effort  available  to 
overcome  both  soil/slope  and  obstacle  resistance  hence  no  speed  is 
lost  in  crossing  the  obstacle.  In  this  case  VXT.  • = VAu ■ . 

If  AF  > 0,  there  is  not  enough  tractive  effort  available.  A 
check  is  made  to  see  if  the  obstacle  can  be  overcome  by  some  of  the 
kinetic  energy  of  the  vehicle.  A terminal  speed  exiting  the  obstacle 
is  calculated  from 

V§  = VA^i^  - AF(WA  + TDg/GCW 
where  WA  = obstacle  width 

TL  = wheel  base  or  track  length  on  ground 
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g = acceleration  of  gravity 
GCW  = gross  combination  weight. 

If  0,  there  is  sufficient  kinetic  energy  available  to 

override  the  obstacle  and  the  exiting  speed  is  VXTj^^  = V5. 

If  vg  < 0,  there  is  not  sufficient  energy  available 
to  override  the  obstacle  when  approaching  it  at  Since  there 

usually  is  more  tractive  effort  available  at  lower  speeds,  a test  is 
made  to  see  if  the  obstacle  can  be  overriden  at  any  speed  by  comparing 

^MAX,k  to  Rxki  + FoOMAX*  where 

^MAX,k  = maximum  tractive  effort  available 

FoomaX  = maximum  tractive  effort  required 
during  obstacle  override 

^MAX,k  < + FqomAX*  override  is  not  possible  and 

''*ki  = VXT^i  = 0. 

^MAX,k  ^ Fxki  + FqomaX'  override  is  possible  and  the 
assumption  is  made  that  the  vehicle  will  cross  the  entire  obstacle  at 

the  speed,  which  yields  the  maximum  tractive  effort.  This  is 

calculated  by  Subroutine  VELFOR.  Then  VAj^^  s VXTjj^  = 

19.  Subroutine  IV19  - Average  Terrain  Unit  Speed  While 

Accelerating/Decelerating  Between  Obstacles 

This  routine  calculates  the  time  it  takes  for  the  vehicle  to 
traverse  various  portions  of  the  terrain  unit  and  the  distance  it 
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travels  during  this  time.  From  this  time  and  distance  calculation  an 
average  speed,  VOVERj^j^^  is  calculated. 

The  various  times  and  portions  are  specified  by 

^a»^a  = time  and  distance  during  acceleration  from 

velocity  VXTj^^  after  leaving  an  obstacle 
Tboj^BO  “ time  and  distance  during  constant  velocity 
travel  at  speed  VBOj^^  between  obstacles 
Tb,Xb  = time  and  distance  during  deceleration  (braking) 
from  (or  some  lesser  speed  if 

^BO  = ^BO  = ^^ki»  maximum 

obstacle  approach  speed 

ToojXoo  = time  and  distance  crossing  the  obstacle. 

If  VBO,.  cannot  be  reached  before  braking  must  begin  then  Tgo  = 

^BO  = The  various  possibilities  are  indicated  in  Figure  II. D. 5. 

The  routine  makes  use  of  three  other  subroutines: 

ACCEL  - which  calculates  the  time  and  distance  to  accelerate 
from  one  speed,  Vg,  to  another  Vb  > Vg.  If 
speed  Vjj  cannot  be  reached  by  acceleration  an  error 
flag,  NV2FLG,  is  set. 

TXGEAR  - which  is  called  by  ACCEL  and  calculates  the  time  and 
distance  required  in  one  gear  during  acceleration 
VELFOR  - the  maximum  speed  achievable  while  overcoming  a given 
resistance  (described  as  part  of  Subroutine  IV5 
above) 

The  above  times  and  distances  are  calculated  as  follows: 

Xqo  = WA  + TL 

Too  = 2Xoo/(VAi,i  + VXT^i) 


D I stance 


11.0.5  — Possible  Speed  Profiles  Across  an  Obstacle 

and  Between  Obstacles 

obstacle  width 

wheelbase  or  track  width  on  ground 

OBSE  - Xqo  - Xg  - Xb 
= effective  obstacle  spacing 

if  Xbo  > 0 
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Tbo  =0  if  Xbo  < 0 

For  any  speed  Vj^  > VAj^i, 

Tb  = [MyCVf^  - VAj^i)]/BMXK 
where  M^  = vehicle  mass 

®MXK  = maximum  braking  force 

and 

Xb  = (Vm  + VAki)Tb/2 

The  overall  average  terrain  unit  speed  while  crossing  obstacles  is 
then  given  by 

VOVERj^.  = OBSE/(Too  + Tg  + Tb  + Tgo) 
for  slope  k = 1 up,  2 level,  3 down  if  NTRAV  = 3 
k = 1 if  NTRAV  = 1 

while  overriding  vegetation  in  stem  diameter  class  i-1  and  smaller  and 
avoiding  vegetation  in  stem  diameter  class  i and  larger.  These 
relationships  can  all  be  calculated  if  Xg,  Tg,  and  the  final  speed 
after  acceleration,  denoted  above  by  are  known. 

Several  initial  checks  are  made.  If  VXTj^^  = VEOj^^,  then 
the  speed  between,  onto  and  off  the  obstacle  are  all  the  same  and  the 
overall  terrain  unit  speed  crossing  obstacles  is  VOVERj^^^  = VBOj^j^. 

If  VAj^^  = VXTj^i  = 0 then  obstacles  cannot  be  crossed  and  VOVERj^i 

= 0. 

If  VXTj^j^  < VAj^i,  Subroutine  ACCEL  is  called  to  determine  if 
the  vehicle  can  accelerate  from  Vg  = VXT^i  to  Vb  = VAj^i;  that 
is,  can  the  vehicle  when  leaving  an  obstacle  at  speed  VXTj^^ 
accelerate  up  to  the  maximum  approach  speed  VAj^^  in  the  distance 
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between  obstacles?  If  the  distance  to  do  so,  is  greater  than 

the  space  between  obstacles,  OBSE  - WA  -TL,  or  the  flag  NV2FLG  is  set 
it  means  the  vehicle  cannot  accelerate  to  the  approach  speed  VAj^^ 
and  VELFOR  is  called  to  determine  if  there  is  any  speed  at  which  the 
vehicle  can  overcome  the  soil/slope/vegetation  and  obstacle 

resistance,  given  by  + ^OOMAX  (see  Figure  II. D. 6 for  the 

speed  profile).  If  such  an  override  speed  exixts,  VOVERj^^j^  is  set  to 
this  override  speed;  otherwise  VOVERj^^  = 0. 


FIGURE  II.D.6  — Speed  Profile  when  Obstacle  Approach 

Speed  cannot  be  Attained 

Once  it  is  known  that  there  is  enough  distance  between 
obstacles  and/or  the  vehicle  has  enough  excess  traction  to  accelerate 
at  least  up  to  the  approach  speed  of  the  next  obstacle.  Subroutine 
ACCEL  is  called  to  determine  if  the  vehicle  can  accelerate  to  VBO,,- 

K 1 > 

the  maximum  speed  between  obstacles,  and  if  so,  the  distance,  X„ 

a 9 

and  time,  Tg , required.  The  time,  Tj^,  and  distance,  Xj^,  to 
brake  from  VBOj^^^  to  VA^i  are  also  calculated  and  if  the  sura  of 
Xg  and  X]3  is  less  than  the  space  between  obstacles,  OBSE  - WA  - 
TL,  then  VOVERj^^  is  calculated  from  formulas  at  the  beginning  of 
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this  section.  (See  Figure  II. D. 5 for  the  speed  profile  of  this  case.) 

If  the  distance,  to  reach  VBOj^j^  plus  the  distance, 

Xjj,  to  brake  back  down  to  exceeds  the  distance  between 

obstacles,  then  the  speed  can  never  be  reached  between 

obstacles  before  braking  has  to  begin.  The  lower  speed  profile  of 
Figure  II. D. 5 applies  to  this  case.  The  distance-speed  coordinates  of 
the  point  B have  to  be  determined.  The  speed  coordinate,  to  be  called 
Vj^,  must  have  a value  in  the  interval  from  and  VBOj^^  and 

the  distance  coordinate,  Xqq  + Xg,  must  have  a value  between  Xqq 
and  OBSE  Actually  only  one  number  among  V|^,  Xg,  and  X^ 

needs  to  be  determined,  since  the  others  can  be  found  from  it  and 
other  known  values. 

is  the  value  sought.  Successive  approximations  to  are 
postulated  by  a binary  search  within  the  speed  interval  from  VAj^^  to 

VBOki.  For  each  such  postulated  value  of  the  distance  Xg  to 
accelerate  to  from  VXTj^i  and  the  distance  to  decelerate 
from  Vj^j  to  VA^i  are  calculated.  If  Xqq  + Xa  + Xt  > OBSE  then 
is  adjusted  to  a lower  value;  if  Xqq  + Xa  + Xt,  < OBSE  then 
is  adjusted  to  a higher  value.  Ten  such  adjustment  are  made 
(corresponding  to  a speed  precision  of  2"^®  of  the  difference 
between  VBOj^^  and  VAj^^). 

The  distance  coordinate  is  highly  sensitive  with  respect  to  the 
final  speed  before  braking,  in  the  sense  that  a small  difference 

in  v^^  can  lead  to  a large  difference  in  Xqq  + Xg.  As  a 


R-2058,  TOLUME  I 
Operational  Modules 


Page  123 


consequence,  it  may  result  that  even  though  the  speed  precision  is  as 
stated  above,  after  10  iterations  the  distance  Xqq  +Xg  + X5  is 
still  significantly  different  from  OBSE. 

If  the  final  distance  is  larger  than  OBSE,  VBOj^^  is  reduced 
by  1 MPH  decrements  and  the  entire  search  for  Vj^  is  repeated.  If  the 
distance  is  smaller,  no  corrective  action  is  taken  since  the  result  is 
that  there  will  be  a distance  between  obstacle  at  which  the  vehicle 
will  travel  at  the  constant  speed  Any  error  caused  by  this  are 
considered  negligible. 

A value  of  is  calculated  for  every  combination  of 

slope  k (up,  level,  down  or  traverse)  and  vegetation  override/avoid 
strategy  i;  for  vegetation  classes  and/or  obstacles  which  cannot  be 
overriden  VOVERj^^  = 0. 

a)  Subroutine  ACCEL  - Time  and  Distance  to  Accelerate  from 

One  Velocity  to  Another 

This  routine  calculates  the  time,  T,  and  the  distance,  X, 
required  for  the  vehicle  to  accelerate  from  one  speed,  , to 
another  ^2  From  the  tractive  effort  vs  speed  curve,  the 

"gear"  or  speed  range,  ng^ ^ of  the  initial  speed  Vt  is  found 
^^n  . 1 < Vi  1 V„  o).  Similarly,  .the  gear,  n^p 

g 1 , I — I "g  1 , O 

final  speed,  V2  is  found  (Vn  1 < V2  < Vn  2,3). 


of  the 


R-2058,  VOLUME  I 
Operational  Modules 


Page  124 


’^g1<  '^g2»  Subroutine  TXGEAR  is  called  repeatedly  to 
calculate  the  time  and  distance  in  each  gear  from  ng^  to  ng2.  If, 
within  any  gear,  the  vehicle  cannot  accelerate  to  the  final  speed  of 

the  gear,  or  the  final  speed  to  be  reached,  V2,  an  error 

flag,  NV2FLG,  is  set  and  the  highest  speed  within  that  gear  that  the 
vehicle  can  achieve  is  calculated  by  a Binary  search. 

b)  Subroutine  TXGEAR  - Time  and  Distance  in  a Gear 

In  this  routine  the  quadratic  functions  representing  tractive 
effort  for  vehicle  speed  are  integrated  to  yield  time  and  distance  in 
each  gear. 

For  illustrative  purposes,  a single  gear,  or  speed  range 
representing  a fixed  set  of  quadratic  coefficients  is  shown  on  Figure 
II. D. 7. 


FIGURE  11.0.7  Representation  of  Tractive  Effort  vs- 

Speed  Relation 


For  this  gear,  the  relationship  is  given  by 
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F = an  + bnv  + c^v 

'^nl  1 v Similar  sets  of  constants  (a^,  b^, 

were  calculated  in  Subroutine  IV5  for  all  gears  n=1,2,.  . . 
,NGR. 

The  differential  equation  to  be  solved  is  given  by 
M V = F - R^j^^ 
where  M = vehicle  mass 

^Tki  = soil/slope/vegetation  resistance  to  be  overcome. 
The  excess  force  F - is  the  tractive  effort  being  used  to 

accelerate  from  v^  to  V2  within  the  gear  n.  Usually  v-]  = v^i 
and  ^2  - v^^  but  it  is  possible  for  Vj^-]  £ £ V2  _< 

'^nS- 

The  above  differential  equation  is  separated  and  integrated  thus 


(1/[c^v^  + + (an-Rxki^ J 


= f (1/M)dt  = t/M 

Jo 

If  the  discriminant  d^2  = b„2  . 4c„(an  . R^ki),  then  the 
time  to  accelerate  from  v^  to  V2  in  gear  r is  given  by 
if  d„2  < 0 


t = 2M/(-d„2)1/2  arctan[(2c^v  + b^)  / 

d 2 = 0 
n ^ 

t = -2M/(2c^v  + b^) 


^^2 

v1 


if 
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if  d^2  > 0 and  d^^  = 

^2 

t = M/(d^2)1/2  ln[  (2Cj^v+bn-cin)/(2cnV+bn+dn)  ] 

''I 

These  relationships  may  be  read  from  tables  of  integrals,  e.g., 
Abramowitz  and  Stegun  (1965). 

In  the  cases  d^2  > o,  the  distance  to  accelerate  from 
to  V2  can  be  calculated  directly.  For  dj^2  > 0,  the  equation  for 
t can  be  solved  for  V2  to  yield 

V2(t)  = 1/2cn[2dn/(1  - vie^^n/”)  - b^  . d^] 

and  this  integrated  to  yield  distance  thus 

X(t)  = f Vp(t)  dt 
0 

= . bn)t/2 

+ M ln((1  - e'''^n/M)/(1  - v^))] 

Similarly  for  d^2  - g 

V2(t)  = 1/2Cn[2M/(2M/(2CnVi  + b^)  - t)  - b^] 

and 


= (M/Cn)ln[2M/(2M  - t(2Cnv1  + bn))]  - bnt/2cn 

In  the  case  d^2  < g,  the  equation  for  t can  be  solved  for  V2(t) 

in  terms  of  v^  but  this  formula  cannot  be  integrated  in  closed  form 
to  yield  X(t).  In  this  case  the  gear  is  approximated  by  two  straight 
lines  fitted  from  (v„^,Fni)  to  (Vn2,Fn2)  and  from 

^''n2,Fn2)  to  (Vn3»Fn3^*  each  of  these  lines  the  integral 

equation 


R-2058,  VOLUME  I 
Operational  Modules 


Page  127 


(where 

yield 


[ 1/(bv  + (a 
the  coefficients 


" ( Cl/M]dt 

JO 

a and  b stand  for  either  set) 


is  solved  to 


t = (M/b)ln[(bv2  + (a  - RTki))/(bVT  + (a  - Rjki))] 
= (vi  + (a  - ^Tki - (a  - R'pi^i)/b 

X(t)  = V2(t)dt 

= (1/b2)[(bv1  + a - RTki)M(e‘^^/^  - D 


- (a  - R'pj^jL)bt] 

These  latter  relationships  are  also  used  in  the  case  where  the 
quadratic  formula  for  a gear  really  was  a straight  line,  namely  c^  :: 

0. 


The  only  other  case  for  which  formulas  are  neeeded  is  the  case 
where  both  c^^  = bf,  = 0.  Here  the  integral  equation  is 

(^2  ft 

I Cl/Ca^,  - RTi^i)]dv  = \ Cl/M]dt 
V ^ Jo 

and 

t = M[(v2  - vi)/(an  - Riki)] 

X(t)  = [(Sfj  _ Rxki)t^3/2M  + 

The  various  formulas  above  can,  of  course,  yield  negative 
values  if  applied  without  concern  as  to  whether  the  vehicle  can  really 
accelerate  from  v^  all  the  way  to  ^2  gear  r,  and  in  fact 
whether  the  vehicle  can  accelerate  beyond  v^  at  all.  NV2FLG  = 1 
will  be  used  to  represent  the  case  where  the  vehicle  cannot  accelerate 
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beyond  and  NV2FLG  = 2 will  be  used  to  denote  the  case  where  V2 
cannot  be  reached.  These  questions  can  be  resolved  by  considering  the 
locations  of  the  two  roots  of 

F = c^v^  + b^v  + (an  - = 0. 

As  long  as  the  quadratic  on  the  left  hand  side  represents 
positive  values  of  tractive  effort  within  the  domain  v^  < v < 

^2,  there  is  excess  tractive  effort  available  for  acceleration.  To 
determine  whether  the  quadratic  is  positive  within  v^  < v < V2 
the  coefficients  can  be  tested;  27  combinations  of  c^^  bn,  and 
(a^  - being  positive  , zero  or  negative  can  result.  Let 

^2  = ^"^n  "^n^  larger  root  and  R-j  = (an  - 

^Tki^/  ^®n^2^  smaller.  Then  NV2FLG  = 1 will  result  from 


°n 

> 

0, 

bn 

< 

0, 

®n  - 

f^Tki 

< 

0 

and 

< R2 

> 

0, 

bn 

< 

0, 

®n  - 

^Tki 

> 

0 

and 

'^l  > 

Ri 

for 

or 

Vi  = 

Ri 

for 

S 

> 

0, 

bn 

= 

0, 

an  - 

^Tki 

< 

0 

and 

vi 

< R2 

°n 

> 

0, 

bn 

> 

0, 

3n  “ 

RTki 

< 

0 

and 

VI 

< R2 

°n 

< 

0, 

bn 

< 

0, 

an  - 

^Tki 

< 

0 

all 

cases 

°n 

< 

0, 

bn 

< 

0, 

®n  ” 

^Tki 

> 

0 

and 

vi 

> R-i 

% 

= 

0, 

bn 

> 

0, 

an  - 

Rfki 

< 

0 

and 

vi 

< R-I 

°n 

= 

0, 

bn 

> 

0, 

an  - 

^Tki 

= 

0 

and 

vi 

< 0 

°n 

< 

0, 

bn 

£ 

0, 

an  - 

RTki 

> 

0 

and 

vi 

> R2 

°n 

< 

0, 

bn 

> 

0, 

®n  " 

^Tki 

< 

0 

and 

''1  < 

Ri 

or 

Vl  > 

R2. 
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NV2FLG  = 2 will  result  from 

> 0 > < 0 , Sn  - Rxki  ^ ^ 

and  V2  > or  < R2 
but  not  when  d^^  > 0 

or  V2  = R-,  when  d^^  = 0 


°n 

0, 

bn 

< 

0, 

an  - Rjki 

> 

0 

and 

V2 

> 

Ri 

°n 

< 

0, 

bn 

< 

0, 

an  - Rlki 

> 

0 

and 

V2 

> 

R2 

°n 

< 

0, 

bn 

> 

0, 

an  - Rlki 

< 

0 

and 

v2 

R2. 

Subroutine  TXGEAR  performs  a decision  tree  on  b 

n » ^n » 

t and  R2  to  determine  if  the  flag  NV2FLG  needs  to  be  0,1 
or  2 and  then  uses  the  appropriate  formulas  for  t and  X(t)  to 
calculate  the  time  and  distance  in  gear  n. 

20.  Subroutine  IV20  - Kinematic  Vegetation  Override  Check 

Various  prior  subroutines  have  calculated  speeds  limited  by 
various  factors  such  as  soil/slope/vegetation  resistance,  ride 
roughness,  obstacle  resistance,  maneuvering  to  avoid  obstacles  and 
vegetation,  etc.  As  each  new  factor  was  considered  the  possibility 
arose  that  the  prior  maximum  speed  for  a given  slope  (up,  level,  down 
or  traverse)  and  vegetation  override/avoid  strategy  the  speed  first 
calculated  on  the  basis  of  soil/slope/vegetation  resistance  had  to  be 
reduced.  A question  now  arises  if  at  the  final  speeds  VAVOIDj^^  and 

VOVERj^i  there  is  enough  excess  traction  and  kinetic  energy  to  still 
override  vegetation  in  the  stem  diameter  classes  i-1  and  smaller. 

This  routine  performs  this  test  as  follows: 
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Subroutine  FORVEL  is  called  to  calculate  the  excess  traction 
available  at  speed  VOVERj^^^  which  is  added  to  the  kinetic  energy  GCW 
(V0VERj^j^)2/2g,  where  GCW  is  the  gross  combination  weight  and  g is 
the  acceleration  of  gravity.  If  this  sum  is  less  than  the  force 
needed  to  override  the  largest  stem  diameter  in  class  i-1,  an 
indicator  NOGOVOj^^  is  reset.  If  the  force  is  sufficient,  NOGOVOj^i 
= 1.  Similarly,  NOGOVAj^j^  = 1 if  the  excess  tractive  effort  plus  the 
kinetic  energy  available  at  speed  VAVOIDj^^  is  sufficient  to  override 
the  largest  stem  in  vegetation  class  i-1;  otherwise  NOGOVAj^^  = 0. 

21.  Subroutine  IV21  - Maximum  Average  Speed 


In  this  routine  a speed,  from  all  the  VAVOIDj^j^  and  VOVERj^i, 
is  selected  according  to  several  criteria  which  include: 


1.  for  each  k,  select  the  maximum  of  all  VAVOIDj^^  and 
VOVERj^j^ 

2.  if  the  maximum  speed  is  less  than  VWALK,the  vehicle  will 
proceed  at  that  maximum  speed. 

3.  if  the  maximum  is  greater  than  VWALK  and  the  resulting 
acceleration  due  to  overriding  vegetation  is  less  than  one  g 
and  the  stem  diameter  class  i is  less  than  that  designated  by 
lOVER,  then  proceed  at  the  maximum 

4.  if  the  maximum  is  greater  than  VWALK  but  i > lOVER  or  the 
acceleration  is  greater  than  g,  continue  to  reduce  the  stem 
diameter  class  to  be  overriden  until  the  criteria  of  3)  are 
met . 

After  the  above  are  selected  for  each  slope  (up,  level,  down,  or 
traverse)  the  final  speeds  calculated  are  the  harmonic  average  of  the 
individual  speeds  in  each  of  the  slopes.  [If  any  of  these  individual 
speeds  is  zero,  the  harmonic  average  is  set  to  zero.]  Two  speeds  are 
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reported  by  this  routine,  the  maximum  speed  (VMAX)  regardless  of 
vegetation  override  and  the  maximum  speed  (VSEL)  which  keeps  the 
acceleration  below  one  g and  does  not  override  stems  in  class  lOVER  or 
greater. 
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E.  Road  Module 

The  Road  Module  of  the  INRMM  calculates  the  maximum  speed  a 
vehicle  can  travel  if  the  terrain  unit  is  a road  or  a trail.  Roads  in 
the  INRMM  are  terrain  units  characterized  by  a non-yielding  surface 
with  a coefficient  of  friction  and  a surface  condition  factor  as  well 
as  curvature,  superelevation,  roughness  and  slope.  There  are  no 
obstacles  or  vegetation  on  roads.  This  Module  is  also  used  for  trails, 
which  are  terrain  units  characterized  by  yielding  soils  but  otherwise 
are  similar  to  roads. 

For  both  roads  and  trails  it  is  assumed  that  each  terrain  unit 
contains  sections  for  up  and  down  or  just  level  or  up  or  down  travel. 
In  rolling  terrain  there  are  seldom  stretches  of  road  that  would  be 
classified  as  distinct  terrain  units  that  contain  both  up/down  and 
level  parts. 

The  major  portions  of  this  Module  calculate  aerodynamic, 
rolling,  cornering  and  grade  resistance,  and  from  this  find  a speed 
limited  by  these  resistances.  This  speed  is  compared  to  that  limited 
by  ride  roughness,  sliding  and  tipping  on  curves,  and  a 
braking/visibility  limit.  An  overall  curvature  speed  limit  derived 
from  tests  conducted  by  the  American  Association  of  State  Highway 
Officials  (AASHO)  is  applied  before  a final  maximum  speed  is  selected. 

These  portions  are  comparable  to  various  subroutines  in  the 
Areal  Module.  The  Road  Module,  being  shorter,  was  coded  as  a single 
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subroutine  with  calls  to  appropriate  subroutines  of  the  Areal  Module 
for  the  yielding  soil.  These  individual  sections  of  the  Road  Module 
will  now  be  described. 

1 . Initialization 

Various  constants  are  set,  some  of  which  are  needed  only  for 
compatability  with  the  subroutines  of  the  Areal  Module  used  for 
trails . 

2.  Velocity  Dependent  Resistance 

In  this  section  the  surface  resistance,  aerodynamic  drag  and 
turning  resistance  are  calculated. 

a)  Surface  Resistance 

This  calculation  differs  between  roads  and  trails. 

For  trails  Subroutines  IV3,  IV4,  and  IV5  of  the  Areal  Module  are 
called  to  calculate 

RTOWxx  - the  resistance  coefficient  for  powered  (RTOWP)  non- 
powered  (RTOWNP),  braked  (RTOWB),  non-braked 
(RTOWNB),  powered  and  braked  (RTOWPB),  and  towed 
(RTOWT)  running  gear  assemblies, 

DOWxx  - the  pull  coefficients  of  powered  (DOWP),  braked 

(DOWB) , and  powered  and  braked  (DOWPB)  running  gear 
assemblies,  and 
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Tractive  effort  vs.  velocity  relationship  adjusted  for  the 

slip  of  the  running  gear,  this  relationship  is  given 
as  a series  of  speed  intervals  (gears)  for  each  of 
which  a quadratic  curve  (F  = + 3^) 

represents  the  relationship. 

See  the  description  of  these  routines  in  Section  II. D above. 

For  hard  surfaces,  primary  and  secondary  roads,  resistances  are 
calculated  for  each  of  the  five  velocity,  force  points  of  each  gear 
and  subtracted  from  the  tractive  effort.  (See  description  of 
Subroutine  IV5  in  Section  II. D. 5).  A new  set  of  quadratics  are  then 
fitted,  by  Subroutine  QUAD5,  to  yield  a resistance  modified  tractive 
effort  vs.  speed  relationship. 

Initially  the  tractive  effort,  adjusted  for  altitude  by  the 
elevation  correction  factor  ECF,  is  limited  by  the  traction  available 
from  the  surface  given  by 
Tg  s Uj  GCWP  cos9j^ 

where  j = coefficient  of  friction  for  surface  condition  factor  j 
GCWP  = gross  combination  weight  on  powered  running  gear 
assemblies 
= slope  angle. 

If"  Tg  is  less  than  tractive  effort  (rim  pull  curve)  the  tractive 
effort  vs.  speed  curve  is  modeled  as  a horizontal  line  at  F = Tg 
until  such  speed,  v*,  that  the  rim  pull  curve  is  exactly  equal  to 
Tg.  The  gears  are  so  adjusted  that  the  first  gear  is  a horizontal 
line  at  T^  for  speed  v such  that  0 £ v ^ v*  and  the  next  gear 
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begins  at  _ y* ^ Five  new  (speed,  tractive  effort)  points  are 
interpolated  from  0 to  v*  and  v*  to  v^^, 

b)  Aerodynamic  Resistance 

After  adjustment  for  surface  traction  limit,  the  aerodynamic 
drag  at  each  velocity,  in  each  gear  is  calculated  from 

^AD  = .0026  Cj)  Ap  Vni^ 
adjusted  so  that  the  units  match 

where  Cj^  = drag  coefficient 

Ap  = frontal  area,  (ft.^) 

c)  Wheeled  Axle  Turning  Resistance 

First  the  superelevation  factor  is  calculated  from 
e = 1 - 14.95RQea/12^f  v^^^ 
where  R^  = radius  of  curvature 

®a  = superelevation  angle. 

The  turning  resistance  for  any  wheeled  assemblies  is  speed 
dependent  and  calculated  by 

Fee  = (e/niC(y)[Wi  cose^  1 1 

where  i = running  gear  (wheeled)  index 

Rq  = radius  of  curvature 
= weight  on  axle  i 
= number  of  wheels  on  axle  i 

= average  cornering  coefficient  (slope  at  slip  angle  = 0 
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in  lateral  force  vs.  slip  angle  relationship, Lbs. /Deg. ) . 

The  units  of  do  not  follow  the  INRMM  standards  in  this  formula. 
a 

Furthermore,  the  constant  111,  which  comes  from  the  formula  in  Smith 

(1970),  implies  that  is  in  miles  per  hour.  The  code  in  NRMM 

makes  a final  adjustment  to  inches  per  second.  Only  terms  for  wheeled 
assemblies  are  included  in  the  sum  for  These  two  resistances 

are  subtracted  from  the  tractive  effort  vs.  speed  relationship  and  a 
new  set  of  quadratics  are  fitted  to  the  adjusted  (speed,  tractive 
effort-resistance)  points  by  Subroutine  QUAD5. 

d)  Tandem  Wheel  Aligning  Resistance 

This  resistance  is  calculated  by 
Ftc  = (e  U j/2Rc)Ei(Wi  + 

where  i = index  of  front  axle  of  a tandem  pair 
b^  = spacing  between  tandem  axles. 

3.  Non-velocity  Dependent  Resistance 

In  this  category  are  turning  resistance  on  tracked  assemblies 
and  rolling  and  grade  resistance. 

a)  Tracked  Turning  Resistance 

The  resistance  of  tracked  assemblies  to  turns  is  given  by  the 
Merritt  equation  (Merritt  (19^6)  or  Ray  (1970))  in  terms  of  the  width 
to  length  ratio 
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= ti/li 

where  = track  of  tracked  assembly  i 

= length  of  track  on  ground  of  assembly  i 
A "Merritt  constant"  is  calculated  as 

\i  - 1 .0624  - .6999®i  + .05l848a^i^  + .05488a' ^^3 
and  a radius  factor  as 

^1i  = Mki(1.l8  - .0090895  Rc/12. 

+ .00003779(Rc/12.)2  + 6.70476*10“8(r^/-,2)3) 

The  turning  resistance  is  then  calculated  by 

Fct  = TFOR/GCwZi  K-i^Wi  + Fee  trails 

= Si  ^li'^i  ^CC  roads 

where  TFOR  = maximum  tractive  effort  available  from  surface 

GCW  = gross  vehicle  weight. 

b)  Rolling  Resistance 

The  rolling  resistance  for  trails  (soft  surface)  is  given  by 

Fr  = S(RTOWP*GCWP  + RTOWNP*GCWNP)cosej^ 
where  GCWNP  = gross  combination  weight  on  non-powered  wheels 
S = surface  condition  factor. 

For  roads  (hard  surface)  the  rolling  resistance  is  calculated 
separately  for  each  running  gear  assembly  i by 

Fri  = (.007  + .0939/psi) WiS  for  wheeled  assemblies 
= .045W^S  for  tracked  assemblies 

where  psi  = pressure  in  the  tires  on  axle  i. 

The  total  rolling  resistance  is  Fj^  = 


LFpi. 
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c)  Grade  Resistance 

The  grade  resistance  is  simply 

^Gk  = GCWsine;^ 
for  each  slope  angle 

4.  Speed  Limited  by  Resistance 

The  resistances  calculated  above  are  summed  s 

+ F^^  + and  Subroutine  VELFOR  (See  description  of  Subroutine 
IV5  of  the  Areal  Module)  is  used  to  calculate  the  maximum  speed 
achievable,  Vp^  overcoming  F'j. 

5.  Speed  Limited  by  Surface  Roughness 

Each  road  or  trail  unit  description  includes  an  RMS  elevation 
indicating  microroughness  of  the  surface.  The  VRIDE  array,  calculated 
from  the  results  of  repeated  runs  of  the  Ride  Dynamics  Module  (Vol. 
Ill)  is  interpolated  to  yield  the  maximum  speed,  achievable  over 

the  current  road  or  trail  unit  keeping  the  driver  absorbed  power  below 
the  level  used  in  the  cross-plots  of  the  results  of  the  Ride  Dynamics 
Module.  These  crossplots  are  part  of  the  vehicle  data  file.  (See 
Section  II.D.10.) 
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6.  Speed  Limited  by  Sliding  on  Curves 

For  trails  and  secondary  roads  it  is  possible  for  banking  (or 
reversed  camber)  to  be  steep  enough  so  that  vehicles  could  slide  on 
curves  at  achievable  speeds.  This  section  calculates  the  maximum 
speed  achievable  before  sliding  by 

Vg  = [385.9Rc(tan  eg  + TFOR/GCW)/ 

(1  - TFORtan  Cg/GCWP)  ] ^ 
for  trails, 

Vg  = [385.9RG(tan  eg  + Uj)/(1  - ujtan  eg)]^'^^ 

for  roads, 

7.  Speed  Limited  by  Tipping  on  Curves 

Similarly  the  maximum  speed  with  which  a vehicle  could 
negotiate  a curve  before  tipping  over  is  calculted  by 

= [385.9Rc(tv,  + hcGtan  eg)/(hQc  - t„tan  eg)]^*^^ 

where  t^  - maximum  tread  width 
hcG  - height  of  CG. 

8.  Speed  Limited  by  Visibility 

The  speed  limited  by  a driver  being  able  to  see  an  obstruction 
in  time  to  brake  to  a halt  before  striking  it  is  calculated  by  a call 
to  Subroutine  IV13  of  the  Areal  Module,  That  subroutine  requires  the 
maximum  braking  force  available  from  the  vehicle  and  surface,  possibly 
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attenuated  by  the  maximum  deceleration  to  which  the  driver  will  choose 
to  be  subjected.  The  total  braking  force,  F'pg,  available  is 
calculated  by  Subroutine  IV11  of  the  Areal  Module  in  case  the  terrain 
unit  is  a trail  (soft  surface).  For  roads  (hard  surfaces) 

^TBk  = GCWsinej^  + min  [Xgp,  p.jGCWBcos0i^] 
where  Xg^  _ maximum  braking  effort  of  the  vehicle. 

The  program  may  call  a NOGO  (not  completing  the  processing  for 
this  terrain  unit)  if  < o due  to  insuffient  braking  ability.* 

When  the  total  braking  effort  is  available,  the  maximum  braking  effort 
the  driver  will  actually  use  is  calculated  by 

When  the  total  braking  effort  is  available,  the  maximum  braking 
effort  the  driver  will  actually  use  is  calculated  by 

^BMAX,k  = l^^max  ^CW,  Fjb^  Sp/100.] 
where  s maximum  deceleration  which  the  driver  will  use 

Sp  = percent  of  total  braking  effort  driver  will  use 

(simulating  the  effect  that  the  driver  will  reserve 
some  percentage  of  the  braking  effort  "for  safety") 
These  driver  limits  may  be  overriden  by  setting  D^,  and  Sp  to 
higher  values,  in  the  Scenario  inputs.  force  used  by 

Subroutine  IV13  to  calculate  speed  limited  by  visibility,  V^. 


* If  post  processors  will  concern  themselves  with 
acceleration/deceleration  between  terrain  units  in  traverse  mode, 
users  may  wish  to  change  the  code  to  allow  all  calculations  in  spite 
of  the  lack  of  braking  ability  (this  requires  the  elimination  of  the 
two  RETURN  statements  in  Section  5B  - Total  Braking  Hard  Surface  of 
the  Computer  Program) . 
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9.  Curvature  Speed  Limit 

Since  physical  stability  limits  on  vehicles  are  often  far 
greater  than  the  self  imposed  ones  exhibited  by  a driver,  a set  of 
empirically  derived  curvature  vs.  speed  limits  are  included  in  the 
Road  Module  Of  the  INRMM.  They  are  based  on  a curve  published  by 
AASHO  (1965)  supplemented  by  observations  made  at  the  USAEWES. 

The  relationships  used  are  presented  in  Table  I.E.1.  This  table  is 
currently  an  integral  part  of  the  terrain  input  routine  MPRD74.  If 
user  terrain  input  routines  are  to  be  added  which  will  read  road  or 
trail  data,  this  table  (or  others  like  it)  will  have  to  be  included  in 


these  new  routines. 
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Table  II.E.1 
Curvature  Speed  Limits 

Radius  of  Speed  Limits  (MPH) 


Curvature 
( feet ) 

Super- 

highways 

Primary 

Roads 

Secondary 

Roads 

Trails 

5730 

100 

100 

70 

55 

1910 

70 

70 

60 

49 

1146 

60 

60 

58 

44 

819 

54 

54 

50 

42 

637 

48 

48 

43 

39 

458 

41 

41 

36 

34 

327 

34 

34 

31 

29 

229 

29 

29 

26 

23 

164 

25 

25 

23 

19 

1 15 

19 

19 

19 

14 

82 

13 

13 

13 

10 

The  curvature  speed  limit,  is  calculated  by  a linear 

interpolation  of  this  table.  If  the  coefficient  of  friction,  or 

j > 

the  surface  limited  pull  ratio,  TFOR/GCWP,  is  less  than  .7,  the 
curvature  speed  limit,  is  further  attenuated  by  the  square  root 

of  the  ratio  of  or  TFOR/GCWP  to  .7. 

10.  Speed  Selection 


The  Maximum  roadway  speed  is  now  chosen  for  each  slope  angle 
©14  to  be  the  minimum  of  the  following: 


VTIREj  = speed  limited  by  tire  at  inflation  pressure  j 
Vp  = speed  limited  by  resistance 

= posted  speed  limits  (scenario  variable) 

= speed  limited  by  tipping 
Vg  = speed  limited  by  sliding  on  curve 
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VpiD  = speed  limited  by  ride  roughness 
Vy  z speed  limited  by  visibility/braking 
Vq  z speed  limited  by  curvature. 

In  traverse  mode,  NTRAV  = 1,  only  one  speed  for  is  reported.  For 
bidirectional  travel,  NTRAV  = 3,  a speed  for  0j^  and  - is 
calculated  and  a harmonic  average  is  taken  as  the  selected  overall 
speed  for  the  road  or  trail  unit. 
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F.  Linear  Feature  Module 

No  code  or  description  of  the  Linear  Feature  Module  of  the 
INRMM  is  included  at  this  stage  of  development. 
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III  INPUTS  AND  OUTPUTS 

A.  Introduction 

When  the  time  came  to  produce  a FORTRAN  implementation  of  the 
Operational  Modules  of  the  INRMM,  NRMM,  following  the  AMC-7^  Report 
(which  is  essentially  a coding  specification)  the  decision  was  made 
that  the  Vehicle  and  Terrain  Preprocessors,  Areal,  Road  and  Linear 
Feature  Modules  would  be  coded  following  the  ANSI  FORTRAN  -66 
standard,  to  allow  portability.  However  input  and  output  would  be  part 
of  the  Control  and  I/O  Module  which  need  not  conform  to  the  Standard. 
The  programmers  have  attempted,  however,  to  use  only  those  extensions 
to  the  FORTRAN  language  which  are  commonly  available.  In  particular  in 
NRMM,  NAMELIST  directed  READ  and  WRITE  are  used  for  vehicle,  scenario 
and  control  input  and  most  output. 


To  use  the  model,  the  sequence  of  operations  may  be  organized 
as  follows: 


1.  Vehicle  data  are  collected  (or  measured,  estimated  or 
assigned  by  analogy)  and  organized  into  computer  input  files 
in  formats  specified  by  Sections  III.B,  Vol.  Ill,  Vehicle 
Data  for  the  Ride  Dynamics  Module,  and  III. a,  Vol.  II, 

Vehicle  Data  for  the  Obstacle  Module,  described  below. 

2.  Terrain  data  are  gathered  (or  measured,  estimated,  or 
assigned  by  analogy)  and  organized  into  computer  input  files 
in  formats  specified  by  Section  III.C,  Terrain  Data  for  the 
Operational  Modules,  described  below. 

3.  The  range  of  obstacle  and  surface  roughness  data  present  in 
the  terrain  data  files  is  used  to  specify  the  base  values  for 
input  to  the  preprocessor  modules.  These  base  values  are 
organized  into  input  files  in  formats  specified  in  Volumes  II 
and  III. 
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4.  The  Ride  Dynamics  Module,  VEHDYN , is  run  using  the  vehicle 
data  file  and  a terrain  profile  exhibiting  a value  of  the 
surface  roughness  (RMS),  obstacle  height  (OBH)  of  a single 
obstacle  or  obstacle  spacing  (OBS)  for  sequence  of  equally 
spaced,  identical  obstacles.  Successive  runs  are  made 
varying  forward  speed  (V).  Crossplots  are  made  for  RMS  vs.  V 
for  fixed  value  of  absorbed  power,  OBH  vs.  V for  fixed  value 
of  maximum  vertical  acceleration,  and  OBS  vs.  V for  fixed 
values  of  obstacle  height  and  maximum  vehicle  acceleration. 
These  three  tables  are  made  part  of  the  vehicle  input  data 
for  the  Operational  Modules. 

5.  The  Obstacle  Module,  OBSTSB,  is  run  using  the  vehicle  data 
file  organized  as  in  Section  III. A,  Vol.  II  and  a table  of 
obstacles  described  by  height  (OBH),  approach  angle  (OBAA), 
and  width  (OBW).  For  each  obstacle,  OBS78B  will  calculate 
minimum  clearance  (CLRMIN),  maximum  force  (FOOMAX),  and 
average  force  (FOO)  during  a simulated  override  of  the 
obstacle.  These  sets  of  six  numbers  are  organized  into  a 
single  table  which  is  made  part  of  the  vehicle  input  data  for 
the  Operational  Modules. 

6.  The  vehicle  data,  along  with  the  results  of  Steps  4 and  5 or 
equivalent  data,  above,  is  organized  into  a computer  input 
file  in  format  as  specified  by  Section  III.B  below. 

7.  The  scenario/control  file  is  constructed  for  each  operational 
module  run  as  specified  by  Section  III.D  below. 

8.  The  Operational  Modules,  organized  into  a source  file  called 
NRMM,  is  run  using  the  vehicle  file  from  Step  6,  the  terrain 
file  from  Step  2,  and  the  scenario/control  file  from  Step  7, 
above . 


The  result  of  these  eight  steps  will  be  a computer  file  giving 
vehicle  speed  for  each  terrain  unit  which  was  included  in  the  terrain 
file  of  the  Operational  Modules.  Other  results  beside  speed  are  also 
given.  Usually,  further  computer  programs  which  use  this  terrain  unit 
vs.  speed  file  as  input  will  be  required  to  further  evaluate  the 
vehicle  performance.  These  other  programs,  called  post-processor  as  a 
group,  will  be  developed  by  the  user  for  his  or  her  own  purpose. 
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Experienced  programmers  will  notice  that  the  coded  version  of 
the  INRMM  is  highly  modular  and  coded  so  that  a person  reading  the 
code  will  have  a good  idea  of  what  is  being  calculated.  This  approach 
has  resulted  in  a rather  inefficient  program,  both  globally  and 
locally.  Experienced  programmers  will  undoubtedly  want  to  enhance 
program  efficiency  after  the  current  code  is  understood. 

B.  Vehicle  Data 

The  data  used  to  describe  the  vehicle  for  NRMM  consist  of  a 
large  number  of  vehicle  descriptors  together  with  outputs  of  the  ride 
dynamics  and  obstacle  modules.  All  these  data  are  organized  into  a 
single  computer  file  and  read  from  unit  LUN3.  The  vehicle  descriptors 
are  read  using  a NAMELIST  directed  read  statement  (NAMELIST  VEHICL). 
The  descriptors  which  are  included  are  listed  and  described  in  Table 
III.B.1. 


The  data  from  the  Obstacle  Module  is  read  using  a formatted 
READ  statement  which  accepts  the  results  as  produced  by  the  Obstacle 
Module  program  and  described  in  Volume  II.  Sample  input  files  are 
contained  in  Appendix  B. 
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Table  III.B.1 

i 

i 

Vehicle  Input  Data  - NAMELIST  VEHICL 

• 

Variable 

Name 

Description 

ACD 

Aerodynamic  drag  coefficient 

ASHOE(I) 

Area  of  one  track  shoe  on  track  assembly  I,  (in^.) 

AVGC 

Average  cornering  stiffness  of  tires  (lb. /deg.) 

AXLSP(I) 

Distance  from  running  gear  assembly  I to  next  assembly 
(inter-axle  distance)  (in.) 

CD 

Hydrodynamic  drag  coefficient 

CGH 

Height  of  CG  of  loaded  vehicle  above  ground  (in.) 

CGLAT 

Lateral  distance  of  CG  measured  from  centerline  of 
combination  (in.) 

CGR 

Loaded  horizontal  distance  from  CG  to  centerline  of 
rearmost  suspension  assembly  of  prime  mover  (in.) 

CID 

Displacement  of  each  engine  (in3.) 

CL 

Minimum  ground  clearance  of  combination  (in.) 

CLRMIN(I) 

Minimum  ground  clearance  of  assembly  I (in.) 

CONV1(1,J) 

Input  speed  component  of  the  torque  converter  speed 
ratio  versus  torque  converter  input  speed  curve,  (rpm) 

CONV1 (2, J) 

Speed  ratio  component  of  the  torque  converter  speed 
ratio  versus  torque  converter  input  speed  curve  at 
constant  input  torque,  TQIND 

C0NV2(1 ,J) 

Torque  ratio  component  of  the  torque  converter  speed 
ratio  versus  torque  converter  torque  ratio  curve 

CONV2(2, J) 

Speed  ratio  component  of  the  torque  converter  speed 
ratio  versus  torque  converter  torque  ratio  curve 

DFLCTd  ,J) 

Deflection  of  each  tire  on  axle  assembly  I under  load 
WGHT(I)/NWHL(I) , in.,  at  the  pressure  specified  for 

J=1  fine  grained,  =2  coarse  grained,  =3  highway 

DIAW(I) 

Outside  wheel  diameter  of  unloaded  tires  on  running 
gear  assembly  I (in.) 

DRAFT 

Combination  draft  when  fully  floating  (in.) 

(0  if  combination  cannot  float) 

• 
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TABLE  III.B.1  (Continued) 


Variable 

Name 

Description 

ENGINECI , J) 

Engine  speed  component  of  engine  speed  versus 
engine  torque  curve,  (rpm) 

ENGINE(2, J) 

Engine  torque  component  of  engine  speed  versus  engine 
torque  curve,  (lb. -ft.) 

EYEHGT 

Height  of  driver's  eyes  above  ground  (in.) 

FD(1  ) 

Final  drive  gear  ratio 

FD(2) 

Final  drive  efficiency 

FORDD 

Maximum  water  depth  combination  can  ford  (in.) 

(Note:  FORDD=  DRAFT  if  DR^AFT  iO .) 

GROUSH(I) 

Track  grouser  height  of  track  assembly  I (in.) 

HPNET 

Net  engine  power  (HP.) 

HVALS(N) 

Nth  obstacle  height  in  driver  limited  speed  vs 
obstacle  height  table  for  single  obstacle  crossing 

lAPG 

0 if  power  train  data  available  only, 

1 if  both  measured  tractive  effort  and  power  train 
data  given, 

2 if  measured  tractive  effort  given  only 

IB(I) 

1 if  running  gear  assembly  I is  braked, 

0 otherwise 

ICONST(I) 

0 if  radial  tires  are  on  wheel  assembly  I, 

1 if  bias  tires 

ICONV1 

Number  of  point  pairs  in  the  array  C0NV1(I,J) 

IC0NV2 

Number  of  point  pairs  in  the  array , C0NV2(I ,J) 

ID(I) 

0 if  wheels  on  wheeled  assembly  I are  singles, 

1 if  duals 

IDIESL 

2 if  the  engine  is  a two  cycle  diesel, 

1 otherwise 

lENGIN 

Number  of  point  pairs  in  the  array  ENGINE(I,J), 

IP(I) 

1 if  running  gear  assembly  I is  powered, 

0 otherwise 

IPOWER 

Number  of  point  pairs  in  the  array  POWER(I,J) 
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Variable 

Name 

IT(I) 

ITCASE 

ITRAN 

ITVAR 

LOCOIF 

LOCKUP 

MAXIPR 

MAXL 

NAMELY 

NBOGIE(I) 

NCHAIN(I) 


TABLE  (Continued) 

Description 


0 if  assembly  I is  not  part  of  a tandem  axle, 

J if  assembly  I is  the  Jth  of  a tandem  axle 

1 if  vehicle  has  engine  to  transmission  transfer 
gear  box 

0 otherwise 

0 if  transmission  is  manual  with  clutch, 

1 if  automatic  transmission  with  torque  converter 

1 if  transmission  is  mechanical, 

0 if  transmission  is  hydraulic 

1 if  all  powered  running  gear  assemblies  have  locking 
differentials , 

0 otherwise 

0 if  torque  converter  does  not  lockup, 

1 if  torque  converter  has  lockup 

Number  of  surface  roughness  values  per  tolerance  level 

Number  of  roughness  tolerance  levels  specified 

Total  number  of  running  gear  assemblies 

Number  of  road  wheels  on  track  assembly  I 

1 if  chains  are  present  on  tire  on  assembly  I 
0 otherwise 


NCYL 

NENG 

NFL(I) 

NGR 

NHVALS 


Number  of  cylinders  per  engine 
Number  of  engines 

0 if  track  on  assembly  I is  rigid, 

1 otherwise 

Number  of  transmission  gear  ratios 

Number  of  height  values  used  in  arrays  VOOB  and  HVALS 
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Variable 

Name 

NPAD(I) 

NSVALS 

NVEH(I) 

NWHL(I) 

NWR 

PBF 

PBHT 

PFA 

POWERCI , J) 
P0WER(2, J) 
QMAX 

RDIAM(I) 

REVM(I) 

RIMW(I) 

RMS(N) 

RW(I) 

SAE 

SAI 


TABLE  III.B.1  (Continued) 

Description 

1 if  track  on  assembly  I has  pads, 

0 otherwise 

Number  of  obstacle  spacing  values  used  in  arrays 
VOOBS  and  SVALS 

0 if  running  gear  assembly  I is  tracked, 

1 if  wheeled 

Number  of  tires  on  wheeled  assembly  I 

Number  of  water  depths  between  0 and  FORDD  for  which 
weight  ratios  are  given 

Maximum  force  pushbar  can  tolerate  (lb.) 

Unit  pushbar  height  (in.) 

Vehicle  projected  frontal  area  (in^.) 

Vehicle  velocity  component  of  the  tractive  effort 
versus  speed  curve  (mi/hr.  on  input) 

Tractive  force  component  of  the  tractive  force 
versus  speed  curve  (lb.) 

Maximum  torque  of  each  engine  (ft. -lb.) 

Rim  diameter  of  wheel  for  tires  on  axle  assembly  I 
(in. ) 

Revolutions/mile  of  tire  element  on  assembly  I, 

( rev/mi ) 

Wheel  rim  width  of  assembly  I,  (in.) 

Nth  surface  roughness  value  (in.) 

Track  thickness  + bogie  rolling  radius  for 
tracked  assembly  I (in.) 

Swamp  angle  (egress)  (deg.) 

Swamp  angle  (ingress)  (deg.) 
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TABLE  III.B.1  (Continued) 


Variable 

Name 

SECTH(I) 

SECTW(I) 

( in. ) 
SVALS(N) 

TCASECl ) 
TCASE(2) 

TL 

TPLY(I) 

TPSKI.J) 

TQIND 

TRAKLN(I) 

TRAKWD(I) 

TRANSCI , J) 

TRANS(2, J) 

VAA 

VDA 

VFS 

VOOB(I) 


Description 


Section  height  of  tires  on  running  gear 
assembly  I (in.) 

Section  width  of  tires  on  running  gear  assembly  I 


Nth  obstacle  spacing  in  driver  limited  speed  versus 
obstacle  spacing  table  for  successive  obstacle 
crossing 

Gear  ratio  for  gear  between  engine  and  transmission 
( 1 . if  no  such  gear) 

Efficiency  of  gear  between  engine  and  transmission 
(1 . if  no  such  gear) 

Distance  from  front  of  first  running  gear  assembly 
to  rear  of  last  (in.) 


Tire  ply  rating  of  tires  on  axle  I 

Tire  inflation  pressure  of  tires  on  axle  I ( psi), 
specified  for  j=1  fine  grained,  =2  coarse  grained, 
=3  highway 

Constant  torque  converter  input  torque  at  which 
torque  converter  performance  curves  are 
measured,  (lb. -ft.) 

Track  length  of  track  assembly  I (in.) 


Track  width  of  track  assembly  I (in.) 
Transmission  gear  ratio  of  gear  NG 


Transmission  efficiency  of  gear  NG 
Vehicle  approach  angle  (deg.) 

Vehicle  departure  angle  (deg.) 

Vehicle  fording  speed 

Maximum  driver  limited  speed  at  which  vehicle  can 
impact  an  obstacle  of  height  HVALS(I)  if  obstacles 
are  spaced  farther  than  two  vehicle  lengths 
apart  (mph) 
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Variable 

Name 

VOOBS(I) 

VRIDECI , J) 
VSS 

VSSAXP 

WC 

WDAXP 

WDPTH(N) 

WDTH 

WGHT(I) 

WI 

WRAT(N) 

WRFORD 

WT(I) 

WTE(I) 

XBRCOF 


TABLE  III.B.1  (Continued) 
Description 


Maximum  driver  limited  speed  at  which  vehicle  can 
impact  successive  obstacles  spaced  SVALS(I) 
apart  (mph) 

Maximum  speed  over  ground  for  surface  roughness  class 
I at  roughness  tolerance  level  J (mph) 

Maximum  combination  still  water  speed  without 
auxiliary  propulsion  (mph) 

Maximum  combination  still  water  speed  with  auxiliary 
propulsion  (mph) 

Winch  capacity  (lb.) 

Water  depth  at  which  auxiliary  power  can 
be  used  (in.) 

Nth  water  depth  (in.) 

Maximum  combination  width  (in.) 

Weight  on  running  gear  assembly  I (lb.) 

Minimum  width  between  running  gear  elements  (in.) 

Ratio  of  vehicle  weight  on  ground  to  total  vehicle 
vehicle  weight  at  Nth  water  depth,  WDPTH(N) 

Proportion  of  combination  weight  supported  by  ground 
when  combination  is  operating  at  maximum 
fording  depth 

Tread  width  of  running  gear  assembly  I (in.) 

(Center  to  center  plane  if  duals) 

Minimum  width  between  left-right  suspension  elements 
(tires  or  tracks)  on  assembly  I (in.) 


Maximum  combination  braking  coefficient  per  assembly 
in  lb. /lb.  of  load  carried 
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C.  Terrain  Input  - Operational  Modules 

The  user  has  several  options  in  the  organization  of  his  terrain 
input  data.  First,  the  data  required  to  describe  each  terrain  unit 
varies  depending  on  its  nature,  areal,  road  or  linear  feature. 
Secondly,  over  the  years  areal  terrain  data  has  been  amassed  in 
computer  readable  form  in  two  different  structures  and  the  current 
computer  program  contains  terrain  data  input/translation  routines 
which  accept  data  in  each  of  these  arrangements  and  perform  the 
computations  necessary  to  pass  the  expected  data  to  the  Terrain 
Preprocessor  and  the  Areal  Module.  Only  a single  organization  of  road 
data  is  presently  supported.  Finally  the  user  can,  of  course,  prepare 
a customized  subroutine  to  accept  data  in  another  format.  The  terrain 
data  organization  is  signaled  by  the  control  variable  MAP.  The  three 
organizations  of  data  now  implemented  are  described  below. 

It  should  be  noted  that  the  terrain  input  routines  and  the 
output  subroutine,  BUFFO,  are  now  coded  to  deal  with  terrain  data 
files  which  contain  only  areal  units  or  road  units,  not  a mixture  of 
the  two  types. 

1.  Areal  Terrain  Input  File  - Class  Interval  Values 

The  first  option  for  representation  of  areal  terrain  data  is 
that  used  in  the  AMC-71  Mobility  Model.  For  each  of  the  22  primary 
descriptors  of  the  terrain  unit,  the  data  file  contains  the  [integer] 
value  of  the  factor  class  in  which  the  descriptor  lies. 
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Table  III.C.1 

Terrain 

Input  File  Structure 

Variable 

Name 

Input 

Format 

Description 

NPAT 

14 

Terrain  unit  number  (index) 

1ST 

12 

Soil  type  - 1 fine  grained 

2 coarse  grained 

3 muskeg 

6 fine  grained  soil  CH 
relatively  impervious 
to  water 

IRCI1 

12 

Soil  strength  class  - dry  season 

IRCI2 

12 

Soil  strength  class  - normal  season 

IRCI3 

12 

Soil  strength  class  - wet  season 

IGRADE 

11 

Topographic  slope  class 

lOA 

12 

Obstacle  approach  angle  class 

• 

I OH 

11 

Obstacle  height  class 

low 

11 

Obstacle  width  class 

lOL 

11 

Obstacle  length  class 

lOS 

11 

Obstacle  spacing  class 

lOST 

11 

Ostade  spacing  type 

1 - potentially  avoidable  (random) 

2 - nonavoidable  (linear) 

I RMS 

11 

Surface  roughness  class 

I STEM  1 

11 

Spacing  class  of  vegetation  in  stem 
diameter  class  1 and  greater 

ISTEM2 

11 

Spacing  class  of  vegetation  in  stem 
diameter  class  2 and  greater 

ISTEM3 

11 

Spacing  class  of  vegetation  in  stem 
diameter  class  3 and  greater 

!• 

1 
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Table  III.C.1  (Continued) 


Variable 

Name 

Input 

Format 

Description 

ISTEM4 

11 

Spacing  class  of 
diameter  class  4 

vegetation  in 
and  greater 

stem 

ISTEM5 

11 

Spacing  class  of 
diameter  class  5 

vegetation  in 
and  greater 

stem 

ISTEM6 

11 

Spacing  class  of 
diameter  class  6 

vegetation  in 
and  greater 

stem 

ISTEM7 

11 

Spacing  class  of 
diameter  class  7 

vegetation  in 
and  greater 

stem 

ISTEM8 

11 

Spacing  class  of 
diameter  class  8 

vegetation  in 
and  greater 

stem 

IRD 

11 

Recognition  distance  class 

AREA 

F10.3 

Area 

Note:  Area  is  not  used  in  the  Mobility  Model.  It  is  included  in  many 
of  the  existing  terrain  files  and  is  included  in  the  input  and 
reported  in  the  output  for  convenience  in  further  processing  of  the 
output . 
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2.  Areal  Terrain  Input  File  - Real  Values 

The  second  option  supported  by  the  current  program  for  input  of 
terrain  data  is  a format  used  for  a variety  of  studies  performed  in 
the  United  States  during  the  middle  of  the  1970  decade.  This  format 
provides  for  input  of  actual  values  for  various  primary  terrain 
descriptors.  The  organization  of  the  data  for  each  terrain  unit  is 
presented  in  Table  III.C.2. 

A few  changes  in  the  content  of  the  terrain  data  should  be 
noted.  First,  a fourth  soil  strength  value  is  included  to  extend  to 

an  extremely  wet  seasonal  condition,  presently  taken  as  the  wet  season 
condition  during  a year  when  daily  rainfall  is  150%  of  the  long  term 
average  values  for  the  area.  Secondly,  four  recognition  distances  are 
included  to  provide  for  the  variation  in  this  quantity  with  season 
(primarily  due  to  changes  in  vegetation).  The  value  used  is  determined 
from  the  scenario  variable  MONTH. 

The  organization  of  the  data  should  be  carefully  noted.  The 
data  for  each  terrain  unit  occupy  two  lines  of  the  input  file  and  some 

of  the  positions  on  each  line  are  not  used.  Most  of  the  data  are  read 

as  four  digit  whole  numbers  with  the  decimal  point  omitted.  To  allow 
the  expected  range  of  the  values  to  fit  reasonably  with  the  implied 
scaling  a mixture  of  units  is  used,  as  noted  in  the  table.  In 
particular  the  surface  roughness  value  is  multiplied  by  10. 


R-2058,  VOLUME  I 
Operational  Modules 


Page  158 


Table  III.C.2 


Terrain  Input  File  Structure  - Real  Values 


Variable 

Input 

Description 

Name 

Format 

NTU 

15 

Terrain  unit  number 

1ST 

12 

Soil  type  - 1 fine  grained 

2 course  grained 

3 muskeg 

6 fine  grained 

soil  CH 

relatively  impervious 

to  water 

20X 

Filler 

RCIC(I) 

m 

Soil  strength  - dry 

(ROD 

RCIC(2) 

14 

Soil  strength  - average 

(ROD 

RCIC(3) 

14 

Soil  strength  - wet 

(ROD 

RCIC(M) 

14 

Soil  strength  - wet, wet 

(ROD 

GRADE 

14 

Topographic  slope 

i%) 

AA 

14 

Obstacle  approach  angle 

(deg. ) 

OBH 

14 

Obstacle  height 

( in. ) 

OBW 

14 

Obstacle  width 

(ft.) 

OBL 

14 

Obstacle  length 

(ft.) 

OBS 

14 

Obstacle  spacing 

(ft.) 

lOST 

14 

Obstacle  spacing  type 

1 - potentially  avoidable  (random) 

2 - nonavoidable  (linear) 

ACTRMS 

14 

10*Surface  roughness  (RMS  - 10*in.) 

NOTE:  The  remaining  data  form  the  second  line 


5X 

Filler 

S(1 ) 

14 

Mean  spacing  (in 
in  stem  diameter 

ft.)  of 
class  1 

vegetation 
and  greater 

S(2) 

14 

Mean  spacing  (in 
in  stem  diameter 

ft.)  of 
class  2 

vegetation 
and  greater 
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Table  III.C.2  (Continued) 


Variable 

Input 

Description 

Name 

Format 

S(3) 

14 

Mean  spacing  (in  ft.)  of  vegetation 
in  stem  diameter  class  3 and  greater 

S(4) 

14 

Mean  spacing  (in  ft.)  of  vegetation 
in  stem  diameter  class  4 and  greater 

S(5) 

14 

Mean  spacing  (in  ft.)  of  vegetation 
in  stem  diameter  class  5 and  greater 

S(6) 

14 

Mean  spacing  (in  ft.)  of  vegetation 
in  stem  diameter  class  6 and  greater 

3(7) 

14 

Mean  spacing  (in  ft.)  of  vegetation 
in  stem  diameter  class  7 and  greater 

3(8) 

14 

Mean  spacing  (in  ft.)  of  vegetation 
in  stem  diameter  class  8 and  greater 

RDA1 

14 

Recognition  distance  - Winter 

RDA2 

14 

Recognition  distance  - Spring 

RDA3 

14 

Recognition  distance  - Summer 

RDA4 

14 

Recognition  distance  - Autumn 

AREA 

F8.4 

Area  of  the  terrain  unit 

NOTE:  Area  is  not  used  in  the  mobility  model.  It  is  included  in  many 

of  the  existing  terrain  files  and  is  included  in  the  input  and 
reported  in  the  output  for  convenience  in  further  processing  of  the 
output. 
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3.  Road  Terrain  Input  File 

The  terrain  data  input  routine  contained  in  the  program  is  that 
requried  to  accept  the  terrain  data  files  which  were  prepared  for 
studies  conducted  in  the  mid  1970's  using  programs  other  than  the  NRMM 
Road  Module.  These  simple  programs  do  not  use  the  full  collection  of 
road  descriptors  required  for  the  NRMM  Road  Module. 

Missing  values  are  provided  by  the  input/translation  routine, 
MPRD74.  Furthermore,  for  the  earlier  studies,  the  road  segment 
curvature  was  preprocessed  into  a speed  limit  so  that  the  curvature 
must  be  computed  from  this  speed  limit  (and  the  speed  limit  recomputed 
in  TPP!).  The  organization  of  data  is  much  like  that  described  for 
areal  terrain  in  the  previous  section.  Soil  strength  is  provided  (for 
trails)  for  our  seasonal  conditions,  visibility  recognition  distances 
for  four  seasons  and  most  of  the  data  is  read  as  four  digit  whole 
numbers  like  that  described  in  the  previous  section. 
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Table  III.C.3 


Terrain  Input  File  Structure  - Roads 


Variable 

Name 

Input 

Format 

Description 

NTU 

IROAD 

15 

12 

Terrain  unit  number 

Road  type  index 

1 - super  highway 

2 - primary  road 

3 - secondary  road 

4 - trail 

1ST 

12 

Soil  type  (used  for  trails) 

1 - fine  grained 

2 - coarse  grained 

6 - fine  grained,  CH, 

relatively  impervious 
to  water 

lURB 

12 

Urban  code 

RCICd  ) 

14 

Soil  strength  - dry  season 

(RCI) 

RCIC(2) 

14 

Soil  strength  - average  season 

1 (RCI) 

RCIC(3) 

14 

Soil  strength  - wet  season 

(RCI) 

RCIC(4) 

14 

Soil  strength  - wet,  wet  season  (RCI) 

GRADE 

14 

Topographic  slope 

i%) 

RDA1 

14 

Recognition  distance  - Winter 

(ft.) 

RDA2 

14 

Recognition  distance  - Spring 

(ft.) 

RDA3 

14 

Recognition  distance  - Summer 

(ft.) 

RDA4 

14 

Recognition  distance  - Autumn 

(ft.) 

ACTRMS 

14 

10*Surface  roughness  (RMS 

- in . ) 

CURVV 

14 

AASHO  Curvature  speed  limit 

(mph) 

DIST 

F8.4 

Road  segment  length 

(mi. ) 

NOTE:  Road  segment  length  is  not  used  in  the  mobility  model.  It  is 

included  in  many  of  the  existing  terrain  files  and  is  included  in  the 
input  and  reported  in  the  output  for  convenience  in  further  processing 
of  the  output. 
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D.  Scenario  and  Control  Input  Data 

To  provide  flexibility  to  the  user  in  the  use  of  the  NRMM  many 
options  are  provided  through  the  scenario  and  control  variables.  The 
control  variables  SEARCH  and  NTUX  allow  restriction  of  the  operational 
modules  to  a single  terrain  unit  anywhere  in  the  terrain  file.  The 
variable  MAP  indicates  the  format  of  the  terrain  input  file.  The 
remainder  of  the  control  variables  allow  the  user  to  generate  output 
at  any  of  the  41  breakpoints  in  the  flow  of  data  through  NRMM. 

The  scenario  variables  provide  an  option  to  model  some  of  the 
operations  which  may  be  possible  for  a given  vehicle  on  a fixed 
terrain.  Presently  available  terrain  files  contain  soil  strength  and 
visibility  limits  under  different  conditions  which  are  specified  by 
ISEASN  and  MONTH.  Shallow  snow  can  be  introduced  using  the  indicator 
ISNOW  with  the  snow  described  by  COHES,  GAMMA,  PHI  and  ZSNOW.  For 
roadways,  an  overall  speed  limit  can  be  set  by  VLIM  and  recognition 
distance  variation  due  to  weather  (e.g.  fog)  can  introduced  by  RDFOG. 
Variables  NSLIP  and  ISURF  indicate  surface  moisture  content  for  areal 
and  road  terrain  units  respectively. 

The  variable  NTRAV  allows  the  model  to  be  run  in  "traverse"  or 
"omnidirectional"  modes.  In  the  former  mode  the  speed  is  calculated 
only  for  the  topographic  slope  value  (which  may  be  negative)  in  the 
terrain  data.  In  the  latter  mode,  speeds  are  calculated  with  the 
input  slope,  its  negative  and  [for  areal  units]  zero  slope  and  then 
the  harmonic  average  of  the  speeds  is  computed  and  reported. 
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Several  of  the  scenario  variables  describe  the  man-vehicle- 
terrain  relations.  These  include  the  roughness  acceptance  level,  LAC, 
speeds  at  which  a driver  will  proceed  regardless  of  lack  of  visibility 
(which  may  be  different  on  and  off  road) , VBRAKE  and  VISMN,  and  the 
driver's  reaction  time,  REACT.  Braking  is  controlled  for  comfort  and 
safety  through  DCLMAX  and  SFTYPC  while  vegetation  override  is  set 
through  lOVER  and  VWALK. 

The  final  scenario  variables  allow  selection  of  the  tire 
pressure  (including  the  possibility  of  using  the  optimal  tire  pressure 
for  each  terrain  unit  as  is  possible  on  a vehicle  equipped  with  a 
proper  central  tire  inflation  system)  and  selecting  between  an  input 
(perhaps  measured)  tractive  effort  vs  speed  curve  and  one  produced  by 
the  program  from  the  power  train  characteristics. 

The  control  and  scenario  variables  are  assembled  into  a single 
input  data  file  and  input  to  the  program  through  two  NAMELIST  directed 
READ  statements  located  in  subroutine  SCN.  In  SCN,  default  values  are 
first  set.  Next  most  of  the  control  variables  are  read  using  NAMELIST 
"CONTRL".  The  output  print  controls  are  then  set  as  determined  by  the 
value  of  DETAIL.  Finally,  the  remainder  of  the  control  variables  and 
the  scenario  variables  are  read  using  NAMELIST  "SCENAR".  It  is 
assumed  that  the  computer  self  initializes  variables  to  zero . The 
control  and  scenario  variables  are  described  in  Tables  III.D.1  and 
III.D.2.  The  variables  are  grouped  in  the  tables  as  they  are  to  be 
grouped  in  the  input  data  file.  Thus  the  second  table  contains  both 
control  and  scenario  variables.  A sample  data  file  is  contained  in 
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Variable 

Name 


TABLE  III.D. 1 

Control  Input  Data  - Operational  Modules 
NAMELIST  CONTRL 

Default  Description 

Value 


DETAIL 


NTUX 


SEARCH 


1 Level  of  detail  of  output 

1- Summary  output  together  with  any 
detailed  outputs  specified  through 
the  KXXXX  variables  described  below. 

2- Echoes  of  vehicle,  control  and  scena- 
rio inputs  together  with  output  for 
each  terrain  unit  of 

a)  terrain  unit  number  and  type 

b)  selected  speed  made  good 

c)  average  speed  made  good 

d)  speeds  upgrade,  on  level  and  down 
grade  contributing  to  the  selected 
speed  made  good 

e)  speeds  upgrade,  on  level  and  down 
grade  contributing  to  the  average 
speed  made  good 

f)  grade 

g)  terrain  unit  area 

3 ,4-Presently , the  same  as  2 

5-All  output  possible  from  the  vehicle 
preprocessor  together  with  a printer 
plot  of  the  tractive  effort  vs  speed 
curve  - terminates  execution  after 
the  vehicle  preprocessor 
10-All  outputs  - in  general,  inputs 

and  outputs  are  reported  at  each  break- 
point in  the  flow  of  computation 
through  the  vehicle  pre-processor 
and  areal  modules  - can  only  be  run 
on  a single  terrain  unit  (the  effect 
is  the  same  as  settinng  all  the  KXXXX 
variables  to  1 ) 

The  number  of  the  terrain  unit  when 
output  is  to  be  produced  for  a single 
terrain  unit  from  a terrain  input  data 
file  with  more  than  one  terrain  unit 
(see  SEARCH) 

Search  option  flag: 

0- Output  desired  for  all  terrain 
units  in  terrain  input  data  file 

1- Output  desired  only  for  a single 
terrain  unit  specified  by  NTUX 
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TABLE  III.D.1  (Continued) 

Variable  Default  Description 

Name  Value 

Note:  The  remaining  variables  are  the  output  controls.  For  each  the 


output 

described  is 

produced  if 

the 

variable  = 

1 and  is  not  produced 

if  the 

variable  = 0. 

If  DETAIL 

= 5 

or  10, 

all 

values  read  are  over 

written 

and  set  to  1 

• 

KSCEN 

Control  and  scenario 

variables 

are  echoed 

KVEH 

Vehicle  input  data  is  echoed 

Kin 

Input 

and 

output 

of 

subroutine 

III 

KII2 

Input 

and 

output 

of 

subroutine 

II2 

KII3 

Input 

and 

output 

of 

subroutine 

II3 

KI14 

Input 

and 

output 

of 

subroutine 

II4 

KII5 

Input 

and 

output 

of 

subroutine 

115 

KII6 

Input 

and 

output 

of 

subroutine 

II6 

KII7 

Input 

and 

output 

of 

subroutine 

II7 

KII8 

Input 

and 

output 

of 

subroutine 

II8 

KII9 

Input 

and 

output 

of 

subroutine 

II9 

Kino 

Input 

and 

output 

of 

subroutine 

1110 

Kin  1 

Input 

and 

output 

of 

subroutine 

III  1 

Kin2 

Input 

and 

output 

of 

subroutine 

1112 

Kins 

Input 

and 

output 

of 

subroutine 

1113 

KII14 

Input 

and 

output 

of 

subroutine 

1114 

Kin5 

Input 

and 

output 

of 

subroutine 

1115 

Kin6 

Input 

and 

output 

of 

subroutine 

1116 

Kin? 

Input 

and 

output 

of 

subroutine 

1117 

KMAP 

Terrain  input  data  are  echoed. 

The  values 

reported  are  those  passed  to  the  computa- 
tional modules  after  any  translation 


required  : 

for  the 

input  file  format 

KTPP 

Input 

and 

output 

of 

the  terrain 

preprocessor 

KIV1 

Input 

and 

output 

of 

subroutine 

IV1 

KIV2 

Input 

and 

output 

of 

subroutine 

IV2 

KIV3 

Input 

and 

output 

of 

subroutine 

IV3 

KIV4 

Input 

and 

output 

of 

subroutine 

IV4 

KIV5 

Input 

and 

output 

of 

subroutine 

IV5 

KIV6 

Input 

and 

output 

of 

subroutine 

IV6 

KIV7 

Input 

and 

output 

of 

subroutine 

IV7 

KIV8 

Input 

and 

output 

of 

subroutine 

IV8 

KIV9 

Input 

and 

output 

of 

subroutine 

IV9 

KIV10 

Input 

and 

output 

of 

subroutine 

IV10 

KIV11 

Input 

and 

output 

of 

subroutine 

IV1 1 

KIV12 

Input 

and 

output 

of 

subroutine 

IV12 
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TABLE  III.D.1  (Continued) 


Variable 

Default 

Description 

Name 

Value 

KIV13 

Input 

and 

output 

of 

subroutine 

IV13 

KIV14 

Input 

and 

output 

of 

subroutine 

IV14 

KIV15 

Input 

and 

output 

of 

subroutine 

IV15 

KIV16 

Input 

and 

output 

of 

subroutine 

IV16 

KIV17 

Input 

and 

output 

of 

subroutine 

IV17 

KIV18 

Input 

and 

output 

of 

subroutine 

IV18 

KIV19 

Input 

and 

output 

of 

subroutine 

IV19 

KIV20 

Input 

and 

output 

of 

subroutine 

IV20 

K1V21 

Input 

and 

output 

of 

subroutine 

IV21 

Note:  This  table  is  organized  in  a (hopefully)  logical  rather  than 
alphabetical  order  - In  particular,  the  KXXXX  which  provide  output 
control  are  grouped  after  the  other  variables  and  are  in  order  of  use 
in  the  program. 
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Variable 

Name 

COHES 

DCLMAX 

GAMMA 
I OVER 

ISEASN 

ISURF 

I SNOW 

LAC 

MAP 

MAPG 

MONTH 

NOPP 


NSLIP 


TABLE  III.D.2 

Control  and  Scenario  Variables  - Operational  Modules 

NAMELIST  SCENAR 


Default 

Value 


Description 


.05 

.50 

.20 


1 

71 


Cohesion  of  snow  (lb./in2.) 

Maximum  deceleration  the  driver  will 
actually  accept  (g's) 

Specific  gravity  of  snow 
The  index  of  the  maximum  stem  diameter 
class  to  be  overriden  if  the  speed  to  do 
so  is  greater  than  walking  speed 


Seasonal  soil  strength 
(moisture)  indicator  for 
areal  terrain 

Seasonal  surface  traction 
condition  indicator  for  roads 

Shallow  snow  cover  indicator 


1 dry 

2 normal 

3 wet 

4 wet, wet 

1 dry 

2 wet 

3 ice  covered 

0 no  snow 

1 snow  cover 


Indicator  of  surface  roughness  absorbed 
power  acceptance  level 
Terrain  input  file  format  indicator 
71  - class  interval  values, 
areal  terrain 

74  - Real  values,  areal  terrain 
11  - Real  values,  road  terrain 
Powertrain  computation  method 

1- Tractive  effort  vs  speed  data  calculated 
from  engine  & transmission  characteristics 

2- Input  tractive  effort  vs  speed  data  used 
Month  of  year  ( 1 =Jan.  ,2=Feb. ,etc.  required 
if  MAP=  11  or  74) 

Operating  tire  pressure  indicator 

0- Tire  pressure  used  for  each  terrain  unit 
determined  by  surface  type  in  that  unit 

1- Tire  pressure  for  cross-country 
used  for  all  terrain  units 

2- Tire  pressure  for  sand 
used  for  all  terrain  units 

3- Tire  pressure  for  highways  used  for  all 
terrain  units 

Surface  moisture  due  to  rain  fall  indicator 
(for  areal  terrain) 

0- No  moisture  to  make  surface  slippery 

1- Less  than  1 in.  of  rain  with  no 
free  surface  water 

2- Less  than  6 hours  flooding  with 
no  free  surface  water 
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TABLE  III.D.2  (Continued) 


Variable 

Default 

Description 

Name 

Value 

NSLIP 

3- More  than  6 hours  flooding  with 
no  free  surface  water 

4- Less  than  1 in.  of  rain  with  free 
surface  water 

5- Less  than  6 hours  flooding  with 
free  surface  water 

6- More  than  6 hours  flooding  with 
free  surface  water 

NTRAV 

3 

Operational  mode  1-Traverse 

3-Omnidirectional 

NTUX 

Number  of  terrain  unit  to  be  examined 
if  SEARCH  = 1 

PHI 

21.0 

Internal  friction  angle  of  snow  (deg.) 

RDFOG 

1000.0 

Recognition  distance  on  road,  influenced 
by  weather  ( in . ) 

REACT 

.5 

Driver  reaction  time  (time  from 
recognition  to  initiation  of  decelera- 
tion) (sec.) 

SFTYPC 

90.0 

Percent  of  maximum  deceleration 
available  that  the  driver  will  actually 
use  i%) 

VBRAKE 

5.0 

Speed  at  which  vehicle  will  proceed  on 
a road  if  visibility  is  entirely 
obscured  (mph) 

VISMNV 

2.0 

Speed  at  which  vehicle  will  proceed  in 
areal  terrain  if  visibility  is  entirely 
obscured  (mph) 

VLIM 

55.0 

Speed  limit  on  road  (mph) 

ZSNOW 

3.0 

Snow  depth  ( in . ) 
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E.  Output 

NRMM  has  been  designed  to  provide  to  its  users  a quantity  of 
output  data  which  can  vary  from  a single  number,  speed-made-good  on 
one  terrain  unit,  to  hundreds  of  pages  covered  with  numbers  (to  a 
printer  and/or  file) . The  selection  of  the  data  to  be  written  during 
the  program  execution  from  that  which  is  possible  is  determined  by  the 
input  values  of  the  control  variables  described  in  the  preceding 
section.  Four  choices  of  outputs  are  implemented  in  the  NRMM  computer 
code  at  present  through  the  control  variable  DETAIL. 

If  DETAIL  = 1 only  the  basic  output  of  the  NRMM  is  written  for 
each  terrain  unit  in  the  terrain  input  file.  This  consists  of  the 
following  for  areal  terrain  units: 

1.  Terrain  unit  number,  NTU 

2.  Terrain  type,  ITUT 

1 - normally  dry  patch 

2 - marsh  or  other  water  covered  patch 

11  - superhighway 

12  - primary  road 

13  - secondary  road 

14  - trail 

3.  The  omnidirectional  speed-made-good  attainable  by  the  vehicle 
in  the  terrain  unit,  VMAX 

4.  The  attainable  speed-made-good  going  with  the  topographic 
slope  (up  grade) 

5.  The  attainable  speed-made-good  on  level 

6.  The  attainable  speed-made-good  going  against  the  topographic 
slope  (down  grade) 

7.  The  selected  omni-directional  speed-made-good  which  considers 
both  the  vehicle  capabilities  and  human  factors,  VSEL 

8.  The  selected  speed-made-good  upgrade 
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9. 

10. 
1 1 . 
12. 


The  selected  speed-made-good  on  level 
The  selected  speed-made-good  down  grade 
Grade  (topographic  slope) 

Area  of  the  terrain  unit 


All  speeds  are  in  miles  per  hour,  grade  (topographic  slope)  is 
in  percent  and  area  is  repeated  from  the  input  file.  On  roads,  since 
the  selected  speed-made-good  is  the  same  as  the  attainable 
speed-made-good,  items  3.-6.  are  not  included  in  the  output,  also,  on 
a road  one  can  only  proceed  with  or  against  the  given  grade  so  item  9 
is  omitted. 

If  DETAIL  = 2,  the  basic  output  table  described  above  is 
preceded  by  listings  of  the  values  of  the  control  and  scenario 
variables  and  the  vehicle  input  data.  This  additional  data  is  written 
using  NAMELIST,  so  that  the  name  of  each  variable  precedes  its  value. 

Setting  DETAIL  = 5 provides  complete  information  about  the 
vehicle  pre-processor.  After  each  major  subroutine  of  the  vehicle 
pre-processor  (III  - III?)  a NAMELIST  is  written  which  contains  the 
input  and  output  of  the  subroutine.  In  addition,  a line  printer-plot 
of  the  tractive  effort  vs.  speed  curve  is  output.  This  printer-plot 
is  also  produced  when  errors  are  detected  in  the  automatic 
curve-fitting  section  of  the  vehicle  pre-processor.  The  program 
execution  is  terminated  after  the  vehicle  pre-processor  (before  any 
terrain  data  is  read)  at  this  output  level. 
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If  DETAIL  = 10,  all  available  data  is  written  to  the  output 
file.  In  addition  to  all  the  data  described  above  (except  the  printer 
plot),  after  each  major  subroutine  of  the  Areal  Module  (IV1-IV21)  the 
input  and  output  of  the  subroutine  is  written.  Again,  this  is  done 
through  a NAMELIST  so  that  each  variable  is  identified.  Detail  level 
10  output  is  not  presently  implemented  for  the  Road  Module.  Since 
this  output  is  voluminous,  the  program  terminates  after  a single 
terrain  unit. 

The  user  of  the  NRMM  who  requires  a different  selection  of  data 
from  that  written  under  one  of  the  above  options  has  two  choices.  The 
42  control  variables  for  writing  of  intermediate  output  KII1-KII17, 
KIV1-KIV21,  KMAP,  KSCEN,  KTPP  and  KVEH  provide  great  flexibility  for 
production  of  desired  output.  Alternately,  the  output  section  of  the 
Control  & I/O  Module,  Subroutine  BUFFO,  can  be  modified  to  yield  the 
desired  results.  Samples  of  output  are  included  in  the  appendices. 
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PROGRAM  NRMM  I 


INPUT 

3 

81, 

«• 

OUT  PUT 

SZ 

137, 

♦ 

TAPEl 

S 

OUTPUT 

<• 

TAPE2 

3 

81, 

TAPES 

S 

81, 

TAPE4 

= 

81, 

*■ 

TAPES 

S 

3 1 f 

¥ 

TAPE10 

3 

512  1 

title: 

NATO  REFERENCE  MOBILITY  MODEL 
ORGANIZATION: 

U.S.  ARMY  TANK  AUTCMOTIVE  RESEARCH  AND  DEVELOPMENT  COMMAND 


LABLEO 

COMMON 

ASSIGNMENTS 

COMMON 

/IQ/ 

IfOF 

COMMON 

/1 0/ 

KBUEF 

COM  MON 

/lO/ 

LUNl 

COMMON 

/lO/ 

LWNZ 

COMMON 

/IQ/ 

LUN3 

COMMON 

/IQ/ 

tWNA 

COMMON 

/IQ/ 

LUNS 

COMMON 

/lO/ 

iUN6 

COMMON 

/IQ/ 

LWN7 

COMMON 

/IQ/ 

tUN8 

COMMON 

/lO/ 

LyN9 

COMMON 

/lO/ 

tUN10 

INTEGER 

MD 

COMMON 

/INDEX/ 

MD 

INTEGER 

COWN 

COMMON 

/INDEX/ 

C6WN 

INTEGER 

E6E 

COMMON 

/INDEX/ 

E6F 

INTEGER 

FORCE 

COMMON 

/INDEX/ 

fcacE 

INTEGER 

GR 

COMMON 

/INDEX/ 

GR 

COMMON 

/INDEX/ 

LEVEL 

INTEGER 

Mt 

COMMON 

/INDEX/ 

MN 

INTEGER 

PPM 

COMMON 

/INDEX/ 

R5M 

INTEGER 

S9EE0 

COMMON 

/INDEX/ 

SflSEC 

INTEGER 

SR 

COMMON 

/INDEX/ 

SR 

INTEGER 

TR 

COMMON 

/INDEX/ 

TR 

INTEGER 

TORQUE 
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COMMON  /INDEX/ 
INTEGER 

COMMON  /INDEX/ 
INTEGER 

COMMON  /INDEX/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
REAL 

COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHJCL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
REAL 

COMMON  /VEHICL/ 
REAL 

COMMON  /VEHICL/ 


TORQUE 

UC 

UR 

MX 

MX 

AGO 

ASHQE 

AVGC 

AXLSP 

CQ 

CGH 

CGLAT 

cap 

CiD 

Ct 

<201 

clrmin 

(201, 

CONVl 

(2,251 

ceiiiV2 

(2,251 

CELCT 

<20,31 

CiAW 

CRAFT 

<20T 

UJ  1- 

X 

UJ  UJ 

<2,501 

FB 

FBROO 

<21 

CROUSH 

<20M 

hVALS 

<IIPG 

(251< 

<201 

10 

I0IESL 

lOIESL 

IBNGIN 

<201> 

IR 

(201 

ICONST 

JCONVl 

IG0NV2 

IBGUER 

<201 

II 

ITCASE 

ITRAN 

ilVAR 

LBCKUP 

MAX  I PR 

MAXL 

MAMBLY 

(201 

NBOGIE 

(201 

NCHAIN 

MCVL 

MCYL 

NSNG 

MGNG 

(201 
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COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 


HPNET 

MfL 

N6R 

fHVALS 

(20f 

NPAO 

NSVALS 

(20i 

KUEH 

(201 

AWHL 

AMR 

fBF 

PBHT 

PEA 

1201 

poner 

CNAX 

12,2011 

Re  1AM 

(201 

fevm 

i20M 

fiJMW 

(20) 

MRS 

(201 

PM 

SAE 

120) 

S«I 

S8CTH 

(20) 

SfiCTW 

I 20) 

SMALS 

(25) 

TOASE 

Tb 

(21 

TBLY 

(201 

TPS  I 
TQIND 

(20.3) 

TRAKLN 

(201 

TRAKMO 

(20) 

iRsANS 

VAA 

VGA 

VES 

(2,201 

VGQB 

(25) 

VSC6S 

(25  I 

VRIOE 

VSS 

VSSAXP 

MC 

MOAXP 

(20,3i 

NOPTH 

MGTH 

(20) 

MIGHT 

(20) 

MRAT 

MRFORD 

(20) 

.MI 

(20) 

MIE 

MW:AX  P 
X8RCCF 

MI 

(20) 
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COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /QBS/ 
COMMON  /QBS/ 
COMMON  /DBS/ 
COMMON  /DBS/ 
COMMON  /OBS/ 
COMMON  /OBS/ 
COMMON  /OBS/ 
COMMON  /OBS/ 
common  /OBS/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 


LOCO IF 
SHF 

A 

( 3,^) 

ATF 

iZit 

ECF 

( 201 

CMARLN 

(20,31 

C«FCFG 

( 31 

CBFCCG 

( 31 

CRFCG 

(20.3I 

CRFFG 

(20^31 

CIF 

( 201 

CRAT 

( 20,31 

iGCA 

(20.31 

ccw 

GCWNB 

GCWNP 

CCWP 

MRT 

NOF 

( 38  1 

NVEHC 

PkTE 

R 

( 31 

PMK 

(201 

«R 

TRACTF 

( 20 , 5F 

TRAPSl 

(31 

VCiCG 

(20,31 

VCIFC- 

<20,3F 

VCIMUK 

(201 

VGV 

(20,51 

VI 

(20,31 

VI  IRE 

(31 

RIMAX 

X 

<31 

XCR 

AVALS 

4U1 

CliEAR 

(7, 14,51 

FOO 

(7r  14,51 

FGGMAX 

<7,14,51, 

FOVALS 

<71 

NANG 

NGHGT 

NHDTh 

kVALS 

(51 

AOT 

<91 

NCGOBF 

CAREA 

COMB 

cewp 

cewPB 

( 201 

FA 

<20,31 
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COMPON  /DERIVE/ 
COMPON  /DERIVE/ 
COM PON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMPON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMPON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMPON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMPON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMPON  /DERIVE/ 
COMMON  /DERIVE/ 
COMPON  /DERIVE/ 
COMPON  /DERIVE/ 
COMPON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMPON  /DERIVE/ 
COMPON  /DERIVE/ 
COMPON  /DERIVE/ 
COMMON  /DERIVE/ 
COMPON  /DERIVE/ 
COMPON  /DERIVE/ 
COMMON  /DERIVE/ 
COMPON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMPON  /DERIVE/ 
COMPON  /DERIVE/ 
COMPON  /DERIVE/ 
COMPON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMPON  /DERIVE/ 
COMPON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMPON  /DERIVE/ 
COMPON  /DERIVE/ 


FAT 

191 

FATl 

(91 

FB 

(2  0«SI 

fC 

(20, 3t 

FMT 

FGM 

FGHMAX 

(91 

FCRMX 

liLQAT 

(3) 

INAX 

(3  ) 

•ISAfE 

ij 

PAX  I 

(31 

8EMX 

MVERO 

cesE 

(31 

PAV 

Flow  e 

RIIOWNB 

RJCMNF 

(9» 

PIQWP 

fTOWPB 

i 201 

PfOWT 

(20  1 

iSIRACT 

(20t3t31' 

SRFO 

(91 

SRFV 

<91 

SIR 

(3,91 

T8# 

(3) 

TDEN 

(91 

TRES  IS 

(3,91 

VA 

1 3,  91 

MQGOVA 

(3,91 

VAVOlO 

(3,91 

VBO 

(3«9I 

IMPACT 

(91 

ViLV 

(31 

V«MAX 

(3  1 

V£ 

I20,3«ai 

PCGOVO 

VMAX 

43,91 

VMAX  1 

(31 

VMAX  2 
VDLA 

( 3rS) 

VOVER 

VRIO 

VSEL 

(3»9) 

VSELl 

(31 

VS  EL  2 

(3«S1 

VSGIL 

(3,9) 

VIT 

13,9) 

VXT 

VGGGNO 

(3,91 
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COMMON  /DERIVE/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 


MRATIQ 

AA 

ACT RMS 

«flEA 

v)REAC 

Ci 

LiSl 

EAhG 

ECF 

EtJEV 

FNU 

13  > 

GRADE 

IGBS 

>IGST 

IPOAD 

IS 

(9> 

1ST 

IIUT 

N< 

MU 

CAM 

C&AA 

ceh 

cet 

C£S 

CBM 

CBNINM 

CGIA 

KM  AS  HO 

PAOC 

PCI 

fClC 

CA) 

RCURV 

111  1 

RG 

PDA 

( 121 

S 

<91 

se 

(91 

SOL 

<91 

SURfF 

TANPM 

theta 

<31 

VCURV 

<A» 111 

MA 

WC 

CCHES 

VMALK 

CCLNAX 

CiHMA 

ICVER 

ISEASN 

ISURF 

ISNOH 
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COMMON 

/SCEN/ 

Mil  1 

COMMON 

/SCEN/ 

Kl>12 

COMMON 

/SCEN/ 

Kii3 

COMMON 

/SCEN/ 

KiU 

COMMON 

/SCEN/ 

KiiS 

COMMON 

/SCEN/ 

K2I6 

COMMON 

/SCEN/ 

Kill 

COMMON 

/SCEN/ 

K4I8 

COMMON 

/SCEN/ 

KM9 

COMMON 

/SCEN/ 

Ki!i0 

COMMON 

/SCEN/ 

K4111 

COMMON 

/SCEN/ 

Miiia 

COMMON 

/SCEN/ 

KiI13 

COM  MON 

/SCEN/ 

Klll-A 

COMMON 

/SCEN/ 

Kill  5 

COMMON 

/SCEN/ 

KII16 

COMMON 

/SCEN/ 

K.M17 

COMMON 

/SCEN/ 

KHAP 

COMMON 

/SCEN/ 

KSCEN 

COMMON 

/SCEN/ 

KIPP 

COMMON 

/SCEN/ 

COMMON 

/SCEN/ 

KlVi 

COMMON 

/SCEN/ 

K«V2 

COMMON 

/SCEN/ 

K1V3 

COMMON 

/SCEN/ 

COMMON 

/SCEN/ 

K*V5 

COMMON 

/SCEN/ 

K4V6 

COMMON 

/SCEN/ 

KiV7 

COMMON 

/SCEN/ 

Ki,V8 

COMiMON 

/SCEN/ 

KiV9 

COMMON 

/SCEN/ 

K4V10 

COMMON 

/SCEN/ 

KIVIl 

COMMON 

/SCEN/ 

K4V12 

COMMON 

/SCEN/ 

K,SVL3 

COMMON 

/SCEN/ 

KiV14 

COMMON 

/SCEN/ 

K1V15 

COMMON 

/SCEN/ 

Kiyi6 

COMMON 

/SCEN/ 

KSV17 

COMMON 

/SCEN/ 

KiVie 

COMMON 

/SCEN/ 

K1V19 

COMMON 

/SCEN/ 

KfA/20 

COM  MON 

/SCEN/ 

K.IV21 

COMMON 

/SCEN/ 

LAC 

INTEGER 

CfTAJL 

COMMON 

/SCEN/ 

GET AIL 

COMMON 

/SCEN/ 

MAP 

COMMON 

/SCEN/ 

MAPG 

COMMON 

/SCEN/ 

MBiNTH 

COMMON 

/SCEN/ 

NCPP 

COMMON 

/SCEN/ 

NSLIP 

COMMON 

/SCEN/ 

MRAV 

COMMON 

/SCEN/ 

NiUX 
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COMMON  /SCEN/ 

COMMON  /SCEN/ 

COMMON  /SCEN/ 

INTEGER 
COMMON  /SCEN/ 

COMMON  /SCEN/ 

COMMON  /SCEN/ 

COMMON  /SCEN/ 

COMi^ON  /SCEN/ 

COMMON  /SCEN/ 

C 2.  INiTILIZE  PROGRAM  VARIABLES 
KBUFF  =0 
LUNl  =1 
LUN2  = 2 

LUN3  = 3 

LUNA  = 4 

LUN5  = 5 

LUN10  = 10 
MD  =2 

DOWN  = 3 

EFF  = 2 

FORCE  = 2 

GR  = 1 

LEVEL  = 2 

MN  = 1 

RPM  = 1 

SPEED  = 1 

mCUE  ’ I 

tr  = 1 

UP  = 1 

MX  =3 

C 3.  INITIALIZE  I/O  CbANNELS 

REWIND  LUN2 
REWIND  LUN3 
REWIND  LUNA 
REWIND  LUN5 
REWIND  LUN10 

C A.  REAC  SCENARIO  PARAMETERS 

CALL  SCN 

C 5.  REAC  VEHICLE  PAPAMEtERS 

CALL  VEW  KVEHJ 

C 6.  EXECUTE  VEHICLE  PRERROCESSOR 

CALL  VPP 

C 7.  EXECUTE  TERRAIN  TRANSLATOR 

2000  continue 

CALL  TERTL 

C a.  EXECUTE  AREAL  OR  RCAO  MODULE 

IFdTUT  .LE.  2>  CAiN  AREAL 
IFdTUT  .GE.  Hi  CAkL  ROAD 

C 9.  OUTPUT  REQUESTED  INBCRMATION 

?F(  lEOF  .EO.  ll  GO  TO  A000 


Pkl 

REACT 

RBfQQ 

SEARCH 

SfARCH 

SBJYPC 

ViAAKE 

VISMNV 

NilM 

ZSACN 


182 


o o o r>  o 


R-2058,  VOLUME  I 

APPENDIX  A - LISTING  OP  PROGRAM  NRMM 


CALL  8UEF0 

IFH  SEARCH  .EQ.  1 I .OR.  lOETAJL  . EQ.  101 » GO  TO  A000 
GO  TO  2000 
4000  CONTINUE 
END 

SUBROUTINE  SCN 


SCENARIO  INPUT  ROUTINE 


1.:  LABLEO  COMMON  ASSIGNMENTS 


COMMON 

/IQ/ 

liOF 

COMMON 

/IQ/ 

KBUFF 

COMMON 

/lO/ 

tUNl 

COMMON 

/IQ/ 

LA(N2 

COMMON 

/IQ/ 

-LUIN3 

COMMON 

/IQ/ 

LI^NA 

COMMON 

/IQ/ 

LUNS 

COMMON 

/IQ/ 

LyN6 

COMMON 

/IQ/ 

LUN? 

COMMON 

/IQ/ 

LMNS 

COMMON 

/IQ/ 

LyN9 

COMMON 

/IQ/ 

LyN10 

COMMON 

/SCEN/ 

ClihES 

COMMON 

/SCEN/ 

ViiALK 

COMMON 

/SCEN/ 

OCiMAX 

COMMON 

/SCEN/ 

GAMMA 

COMMON 

/SCEN/ 

•I6VER 

COMMON 

/SCEN/ 

4SEASN 

COMMON 

/SCEN/ 

liSURF 

COMMON 

/SCEN/ 

JSAiOW 

COMMON 

/SCEN/ 

Kill 

CCM-MON 

/SCEN/ 

K^M2 

COMMON 

/SCEN/ 

KiI3 

COMMON 

/SCEN/ 

KJI4 

COMMON 

/SCEN/ 

KiI5 

COMMON 

/SCEN/ 

Kil6 

COMMON 

/SCEN/ 

K117 

COMMON 

/SCEN/ 

KilS 

COMMON 

/SCEN/ 

Mi  19 

COMMON 

/SCEN/ 

Kill0 

COMMON 

/SCEN/ 

Killl 

COMMON 

/SCEN/ 

Kdili 

COMMON 

/SCEN/ 

Kill  3 

COMMON 

/SCEN/ 

KillA 

COMMON 

/SCEN/ 

Kills 

COMMON 

/SCEN/ 

KJliA 

COMMON 

/SCEN/ 

Kill? 

COMMON 

/SCEN/ 

KMAP 

COMMON 

/SCEN/ 

KSCEN 

COMMON 

/SCEN/ 

KIPP 

COMMON 

/SCEN/ 

K¥EH 
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COMPON 

/SCEN/ 

KiVl 

COMMON 

/SCEN/ 

KiV2 

COMMON 

/SCEN/ 

KiV3 

COMMON 

/SCEN/ 

MiV4 

COMMON 

/SCtN/ 

KiV5 

COMMON 

/SCEN/ 

K1V6 

COMMON 

/SCEN/ 

K.iV7 

COMMON 

/SCEN/ 

M1V8 

COMMON 

/SCEN/ 

KiV9 

COMMON 

/SCEN/ 

KiVl  e 

COMMON 

/SCEN/ 

K4V11 

COMMON 

/SCEN/ 

M^via 

COMMON 

/SCEN/ 

K<dV13 

COMMON 

/SCEN/ 

M1V14 

COMMON 

/SCEN/ 

K.SV15 

COMMON 

/SCEN/ 

KIV16 

COMMON 

/SCEN/ 

K«Y17 

COMMON 

/SCEN/ 

KlVl  6 

COMMON 

/SCEN/ 

Kjyi9 

COMMON 

/SCEN/ 

iav20 

COMMON 

/SCEN/ 

KiiV2i 

COMMON 

/SCEN/ 

LAC 

INTEGER 

D6TA  IL 

COMMON 

/SCEN/ 

C IT  A It 

COMMON 

/SCEN/ 

HAP 

COMMON 

/SCEN/ 

■MJiPG 

COMMON 

/SCEN/ 

MBNTF 

COMMON 

/SCEN/ 

COMMON 

/SCEN/ 

KSLIP 

COMMON 

/SCEN/ 

ATRAV 

COMMON 

/SCEN/ 

MUX 

COMMON 

/SCEN/ 

FMI 

COMA'ON 

/SCEN/ 

R lACT 

COMMON 

/SCEN/ 

FOfOG 

INTEGER 

SfARCH 

COMMON 

/SCEN/ 

SBARCH 

COMMON 

/SCEN/ 

SATXPC 

COMMON 

/SCEN/ 

VBRAKE 

COMMON 

/SCEN/ 

VJSMMV 

COM  MON 

/SCEN/ 

VAIN 

COMMON 

/SCEN/ 

2SNOM 

2. 

SCENARIO  INPUT.  PARAMETERS 

NAMELIST  /SCENAR/ 

«■ 

COMES  ,DCLMAX 

*£ANMA 

t lOV  ER 

, ISEASN 

, ISURF 

fISNOW  ,LAC 

,MAP 

tMAPG 

, MONTH 

»NOPf> 

*• 

,NSLIP  ,NTRAV 

f hTUX 

,PHI 

, REACT 

*ROFOG 

,SFTYPC  .VBRAKE 

•MiSMNV 

fVLIM 

»ZSNOU 

NAMELIST  /CONTRL/ 


♦ 

DETAIL 

»KSCEN 

• KVEH 

• KlI  1 

»K1I2 

«• 

,KII3 

,KII4 

tKLiS 

»K116 

,K.II7 

*■ 

tKilB 

• KIi9 

^KlIlA 

tKMll 

•K4112 

*■ 

,KII  13 

.KI114 

» Kills 

vKIlilb 

.KlllT 
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* 

,KMAP 

»KT  FP 

• KlVl 

«KIV2 

• KIV3 

»• 

»KIV4 

,KIV5 

• KIV6 

• KIV7 

•^Kive 

♦ 

,K!,V9 

f Kl  VI  0 

^KlVll 

•K1VI2 

♦KfVli 

«■ 

,K1V14 

,KI  VIS 

tKlV 16 

•K1VI7 

«KIV13 

♦ 

,KIV19 

• KIV2  0 

,KIV21 

• NTUX 

, SEARCH 

3.  INITIALIZE  SCEN^RiC  VARIABLES 
COHES  = .05 

VWALK  = 4.00 

OCLRAX  = .50 

GAMMA  = .20 

TOVER  = 9 

ISEASN  = 1 

ISNOW  = 0 

ISURF  = 1 

LAC  = 1 

DETAIL  = 1 

MAP  = 71 

MAPG  = 1 

NOPP  = 0 

NSLIP  = 0 

NTRAV  = 3 

PHI  = 21.00 

REACT  = .50 

ROFCG  =1000*00 
SEARCH  = 0 

SFTVPC  s 90.00 

VBRAKE  = 5.00 

VISMNV  = 2-00 

VLIM  = 55.00 

ZSNCW  = 3.00 

4.  READ  CONTROL  VARIAEAES 
REAC(LUN4,C0NTRLr 
IF(CETAIL  -EG.  IF  60  TO  330 
IFICETAIL  .EG.  21  fiC  TO  310 
IF! detail  .eg.  3»  60  TO  310 
IF!  DETAIL  .EG^  41  GO  TO  310 
IF {DETAIL  .EG.  51  60  TO  320 
IFJ DETAIL  -EG.  10»  QC  TO  320 
WKITE(LUN1,3000V  DEtAR 
STOP  L 
GO  TO  320 

continue 

KSCEN  = 1 
KVEH  =1 
GO  TO  3 30 
CONTINUE 

KSCEN  = 1 
KVEH  = 1 
Kill  = 1 
KII2  = 1 
KII3  = 1 
KII4  = 1 
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33id 

C 


c 


30^0 


C 


KI 15 
KI  Ib 
KII7 
Klia 
KI19 
Klli0 
Kllll 
KI112 
Kill  3 
KII14 
KII15 
KII16 
Kill  7 
KMAP 
KTPP 
KIVl 
KIV2 
KIV3 
KIV4 
KIV5 
K1V6 
KIV7 
KIV8 
KIV9 
KI  V I 0 
KIVl  1 
KIV12 
KIVIS 
KIV14 
KIV15 
KI  V16 
KIVl? 
KIV18 
KIVl  9 
KI  V20 
KIV2  1 
CONTINUE 
IF! KSCFN 


= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
* 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 

.EQ. 


li  UR<ITE<LUM,CONTRLR 

5.  REAC  SCENARIO  VARWGLES 
REACI  LU^4,SCENAR^ 

IFI  KSCEN  .EQ.  D M R<TE( LUNl , SCENAR I 

6.  UNITS  CONVERSION 

PHI  = PHl*3. 14159245/180. 

VBRAKE  = VBRAKE*17.6 
VISMNV  = VISMNV*17.8 
VLiP  = VLIM*17.6 
VViALK  = VWALK*17*6 

F0BMAT(1X,31HINVAL  10  SPECIFICATION  OF  DETAIL, i2» 

RETURN 

END 

SUBROUTINE  VEHIKVEhl 


PAG£  A-13 


186 


O O O O 


R-2a58,  VOLU^E  I 

APPENDIX  A - listing  CF  PROiGPAM  NRMM 


PAGE  A-14 


VEHICLE  PARAMETER  JNPUI  RCUTINE 


1.  LABiEO 

COMMON  ASS 

IGNMENTS 

COMMON 

/lO/ 

afiOF 

COMMON 

/lO/ 

K8UFF 

COMMON 

/IQ/ 

LUNl 

COMMON 

/lO/ 

iUN2 

COMMON 

/IQ/ 

L4<N3 

COMMON 

/IQ/ 

LU(N4 

COMMOK 

/I  QJ 

LHN5 

COMMON 

/IQ/ 

iWN6 

COMMON 

/IQ/ 

LLN? 

COMMON 

/IQ/ 

IUN8 

common 

/IQ/ 

LHN9 

COMMON 

/IQ/ 

LW  NI  e 

CGMMIQN 

/VEHICL/ 

ACO 

COMMON 

/VEHICL/ 

AS  HOE 

120» 

COMMON 

/VEHICL/ 

A.Vi6C 

COMMON 

/VEHICL/ 

AXLS  P 

{201 

COMMON 

/VEHICL/ 

CD 

COMMON 

/VEHICL/ 

C6H 

COMMON 

/VEHICL/ 

C4LAT 

COMMON 

/VEHICL/ 

CGR 

COMMON 

/VEHICL/ 

C-ID 

COMMON 

/VEHICL/ 

Ct 

COMMON 

/VEHICL/ 

aRMIN 

(201 

COMMON 

/VEHICL/ 

CGNVl 

{2,251 

COMMON 

/VEHICL/ 

CGNV2 

{2,251 

COMMON 

/VEHICL/ 

£€LCT 

{20,31 

COMMON 

/VEHICL/ 

CfAW 

{201 

COMMON 

/VEHICL/ 

DRAFT 

COMMON 

/VEHICL/ 

E AG IKE 

{2,50) 

COMMON 

/VEHICL/ 

E<S<EHCT 

COMMON 

/VEHICL/ 

Ffi 

{21 

COMMON 

/VEHICL/ 

FGROO 

COMMON 

/VEHICL/ 

GRCUSH 

{20» 

COMMON 

/VEHICL/ 

hVALS 

(25  ► 

COMMON 

/VEHICL/ 

liPG 

COMMON 

/VEHICL/ 

16 

(20) 

COMMON 

/VEHICL/ 

IG 

(20)- 

REAL 

IGIESL 

C OM  MON 

/VEHICL/ 

4BiiESL 

COMMON 

/VEHICL/ 

flEI^GTN 

COMMON 

/VEHICL/ 

IP 

(20) 

COM  MON 

/VEHICL/ 

ICGNST 

120) 

COMMON 

/VEHICL/ 

iCONva 

COMMON 

/VEHICL/ 

ICeNV2 

COMMON 

/VEHICL/ 

IGOWER 

COMMON 

/VEHICL/ 

IT. 

( 2 0A 

COMMON 

/VEHICL/ 

ITCASE 

COMMON 

/VEHICL/ 

ITRAN 
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COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
REAL 

COMMON  /VEHICL/ 
kEAL 

COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COM.MON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEH4CL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 


•IT  VAR 
LGCKUP 
MAN  1 PR 
iMAXL 
MMBLY 


A£GGIE 

4 201 

NCHAIN 

4 20  1 

ACYL 

NCYL 

AENG 

NING 

KfNET 

N6L 

420) 

N8R 

NMVALS 

AAAO 

4 20  A 

NfiVALS 

hWEH 

4201 

MIHL 

(20* 

NNA 

ffiF 

PB6T 

PEA 

FOWER 

42#201) 

CIUAX 

RB^AM 

4 20) 

RIVM 

4 20) 

R4MW 

420) 

RMS 

420) 

RM 

420) 

S4E 

SAi 

SiCTH 

4 20A 

SfCTN 

(20) 

SVALS 

425A 

TCASE 

(2) 

Tk 

TMLY 

4 20) 

TBSl 

(20«3) 

T«1N0 

TRAKLN 

420  ) 

TRtAKHO 

4 20) 

TRANS 

42r20) 

VAA 

VCA 

VCS 

VCCB 

4251 

VQOBS 

4 25) 

VRIOE 

420,3) 

kSS 

VSSAXP 

MC 
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COMMON 

/VEHICL/ 

HOAX  P 

COMMON 

/VEHICL/ 

WOPTH 

i20F 

COMMON 

/VEHICL/ 

kSTH 

COMMON 

/VEHICL/ 

^OHT 

1201 

COMMON 

/VEHICL/ 

hRAT 

(20) 

COMMON 

/VEHICL/ 

URFQRO 

COMMON 

/VEHICL/ 

120  > 

COMMON 

/VEHICL/ 

NIE 

(20) 

COMMON 

/VEHICL/ 

liMAXR 

COMMON 

/VEHICL/ 

XiRGOR 

COMMON 

/VEHICL/ 

Ms 

COMMON 

/VEHICL/ 

L BCD  If 

COMMON 

/VEHICL/ 

SHF 

COMMON 

/OBS/ 

A«LALS 

1 14) 

COMMON 

/QBS/ 

CfeEAR 

(7»  14,5) 

COMMON 

/OBS/ 

fee 

17.14,5) 

COMMON 

/08S/ 

FBCMAX 

17,  14,5) 

COMMON 

/OBS/ 

FeVALS 

n ) 

COMMON 

/QBS/ 

COMMON 

/QBS/ 

NEHGT 

COMMON 

/OBS/ 

iNMUTH 

COMMON 

/OBS/ 

li¥ALS 

15) 

C 2.  VEHICLE  INPUT  PARAMETERS 
NAMELIST  /VEHICLE/ 


f 

ACO 

fASHQE 

• «VGC 

,AXLSP 

wCO 

• CGH 

,CGLAT 

+ 

, CGR 

,CIO 

,ct 

,CLRMJN 

•CONVl 

•CQNV2 

,OFLCT 

*■ 

, Cl  AW 

, DRAFT 

«£NG1NE 

,EYEHGT 

• FO 

•FQROD 

• GROUSH 

<■ 

,HPNET 

,HVALS 

,MPQ 

.IB 

• 10 

tXOIESL 

tIENGIN 

«• 

, ICON  ST 

, ICQNVl 

«€CONV2 

tip 

tlPOW ER 

,ir 

,irCASE 

, ITRAN 

,ITVAR 

• LOCKUP 

• NAXIPR 

,))AXL 

• NAMBLY 

, NBOGie 

,NCHAIN 

.ftCYL 

• NENG 

• NFL 

,NGR 

,NHVALS 

*■ 

,NPAO 

.NSVALS 

►tWVEf 

• NUHL 

•NWR 

• PBF 

,PBHT 

* 

, PFA 

, POWER 

,Bi)AX 

,RDi.AH 

• REVH 

,RIMW 

,RMS 

*■ 

, RW 

,SAE 

,SAI 

,SECTH 

rSECTW 

•SVALS 

.TCASE 

,tl 

,TPLY 

^ifRS  I 

,TQlNO 

•TRAKLN 

,TRAKWO 

, TRANS 

♦ 

, VAA 

,VDA 

.¥fS 

,vooe 

fVOOBS 

•VRIDE 

tVSS 

♦ 

, VSSAXP 

,wc 

•MiOAXP 

•WOPTH 

• WDTH 

, WGHT 

• Ml 

*■ 

, RRAT 
NAMELiST 

fWRFORD 

/BUMP/ 

kUT 

,WTE 

• WWAXP 

,XBRCOF 

*■ 

*■ 

AVALS 
, NANG 

, CLEAR 
,NOhGT 

•FOG  .FOOMAX 

rNWCTH  .WVALS 

, HOVALS 

3.  RFAC  VEHICLE  PARAMETERS 
READ{LUN3,VEHICLEI 

IFCkVEH  ,EQ.  U WRIIEILUNi, VEHICLES 


OBSTACLE  INTERFERENCE  HISTORY 

READ!  LUN3, 1000*  DUMMY 
REAC(LUN3, 20001  NOHtT 
REACI  LUN3rl000»  DUMMY 
READ(LUN3,2000}  NAN« 

REACI  LUN3, 1000)  OU»MY 
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1000 

2000 


4000 

30  20 

3010 

3000 

C 

C 


c 

c 

c 

c 

c 


REAC(  LUN3,2000)  NMCiH 
ReAC(LUN3,10k)0l  DUfRY 
REAC(LUN'3f  1000)  DURNY 
FORRAKAU 
F0RMAT(5X,I2» 

DO  3000  NW^liNUOTH 
DO  3010  NA?l.NAKfi 

DO  3020  NHsl^ftCHGT 
REAO:LUNa,4000) 

f CLEARC  AH,KA,NU)» 

4-  FOURAXIUH.NAthWlt 

«-  FQQ<NH4ltA,NWl  • 

4-  HQYALS4(kH)f 

<-  AVALS4M)t 

* WVALSIKIII 

FORHAT  <P7..2«F10«:1,F10.1«F10^«F10.2>F10.2I 
CONTINUE 
CONTINUE 
CONTINUE 
REACi  LUN3,6UHP) 

IFIKVEH  .EQ.  1)  WRI]!EILUN1«8UMF) 

RETURN 

END 

SUBROUTINE  VPP 


VEHICLE  PREPROCESSOR 


CABLED 

COMMON  i 

ASSURMENTS 

CUM  RON 

/!□/ 

lECF 

COMA*ON 

/IQ/ 

KlUFF 

COM  MON 

/lO/ 

IWM 

COMMON 

/IQ/ 

LAIN  2 

COMMON 

/lO/ 

IUN3 

COMMON 

/IQ/ 

LUNA 

COMMON 

/lO/ 

lUNS 

COMMON 

/IQ/ 

LUKA 

COMMON 

/!0/ 

iUN7 

COMMON 

/IQ/ 

LUN8 

COMMON 

/IQ/ 

LUN9 

COMMON 

/!□/ 

LUM0 

INTEGER 

MO 

COMMON 

/INDEX/ 

MC 

INT EGER 

DOWN 

COMMON 

/INDEX/ 

CGMN 

INTEGER 

EFF 

COMMOK 

/INDEX/ 

>E£F 

INTEGER 

FGRCE 

COMMON 

/INDEX/ 

*BRCE 

INTEGER 

GR 

COMMON 

/INDEX/ 

CR 

COMMON 

/INDEX/ 

LEVEL 

PAGE  A-17 


190 


R-2058.  VOLUME  I 

APPENDIX  A - LISTING  CF  fROiCSAM  NRMM 


PAGE  A-18 


INTEGER 

'MfS 

COMMON 

/INDEX/ 

I NT  EGER 

COMMON 

/INDEX/ 

RftM 

INTEGER 

SSEED 

COMMON 

/INDEX/ 

SGEEO 

I NT  EGER 

SM 

COMMON 

/INDEX/ 

SR 

INTEGER 

TR 

COM  MON 

/INDEX/ 

TB 

TNT  EGER 

TORQUE 

COMMON 

/INDEX/ 

TGRQUE 

INTEGER 

UR 

COMMON 

/INDEX/ 

UC 

I NT  EGER 

MX 

COMMON 

/INDEX/ 

MJS 

COMMON 

/VEHICL/ 

AGO 

COMMON 

/VEHICL/ 

A SHOE 

(20  1 

COMMON 

/VEHICL/ 

A¥GC 

COMMON 

/VEHICL/ 

AXLSF 

(201 

COMMON 

/VEHICL/ 

CO 

COMMON 

/VEHICL/ 

C6H 

COMMON 

/VEHICL/ 

C4LAT 

COMMON 

/VEHICL/ 

COR 

COMMON 

/VEHICL/ 

CJD 

COMMON 

/VEHICL/ 

Cl 

COMMON 

/VEHICL/ 

CLRMIN 

(20) 

COMMON 

/VEHICL/ 

ceNvi 

{2»25) 

COMMON 

/VEHICL/ 

CeNV2 

(2* 2 5) 

COMMON 

/VEHICL/ 

CELCT 

<20,31 

COMMON 

/VEHICL/ 

CiiAW 

i 20 1 

COMMON 

/VEHICL/ 

CRAFT 

COMMON 

/VEHICL/ 

GIGINE 

(2,50) 

COMMON 

/VEHICL/ 

ElfEhGT 

COMMON 

/VEHICL/ 

fC 

(2) 

COMMON 

/VEHICL/ 

FORDO 

COMMON 

/VEHICL/ 

CRGUSH 

(20) 

COMMON 

/VEHICL/ 

hVALS 

<2S) 

COMMON 

/VEHICL/ 

aiA'PG 

COMMON 

/VEHICL/ 

la 

( 20) 

COM  MON 

/VEHICL/ 

IC 

(20) 

REAL 

TOIESL 

COMMON 

/VEHICL/ 

loiesL 

COMMON 

/VEHICL/ 

iSNGIN 

COMMON 

/VEHICL/ 

16 

(20M 

COMMON 

/VEHT CL/ 

ICGNST 

(20) 

COMMON 

/VEHICL/ 

I CON VI 

COMMON 

/VEHICL/ 

ICONV2 

COMMON 

/VEHICL/ 

I ROWER 

COMMON 

/VEHICL/ 

.■!« 

(20) 

COMMON 

/VEHICL/ 

. IlCASE 

COMMON 

/VEHICL/ 

IIRAK 
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uOMRQN  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMiMQN  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
REAL 

COMMON  /VEHICL/ 
REAL 

COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHia/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 


II  VAR 

LICKUP 

IMAKIPR 

MAXL 

NAMELY 

MGCGIE 

(201 

hCHAIN 

(20» 

NCYL 

NilATL 

KENG 

NfiNG 

MCNET 

NAL 

(201 

M6R 

NMVALS 

NBAO 

(201 

MSWALS 

NWEH 

(201- 

MMHL 

(201 

KMR 

fBF 

FBhT 

ffA 

peuER 

(2#201l 

CHAX 

RCIAM 

(201 

RfVM 

(201 

RiMW 

1201 

FN5 

(201 

FN 

(20i 

SAE 

SAi 

5ICTH 

1201 

secth 

(20  1 

SVALS 

(251 

TAASE 

(21 

Tk 

TfrLY 

(201 

T6S1 

{20»3) 

T4IN0 

TRAKLN 

(201 

TftAKMO 

(201 

TAtANS 

(2  »20» 

VAA 

VGA 

VCS 

VCCB 

(251 

VCOBS 

(251 

VRIOE 

(20,31 

kSS 

VSBAXP 

uc 
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COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 


NOAXP 

ROPTH 

i2GM 

%£TH 

M€HT 

420) 

4iRAT 

1201 

WRfORO 

{20M 

ItlE 

(201 

MUAXP 

«IRCOP 

LGCO  IF 
SHF 

A 

<3»  Al 

AJf 

(201, 

BiF 

(201 

CHARLN 

(20,3.1 

CSECFiG 

(31 

CRFCCG 

(3) 

CPFCG 

(20  , 3t 

CSfFG 

(20,3) 

GIF 

(20) 

CRIAT 

(20,3) 

GCA 

( 20.  3) 

GCW 

GCH6 

•GCWNB 

iGCWNP 

€CWP 

MT 

NCF 

( 38  1 

NVEMC 

FWTE 

P 

(3i 

PNX 

(20) 

RR 

TRACTF 

( 20,5) 

TRAPS  I 

(3) 

VC'iCG 

(20,3) 

VCIFG 

(20,3) 

VCIMUK 

(20) 

V6V 

(20,5) 

>V1 

(20,3) 

VI  IRE 

(3) 

«CMAX 

X 

( 3) 

ABR 

C0HES 

VttALK 

CeiMAX 

gamma 

I OVER 
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COMMON 

/SCEN/ 

■ISEASN 

COMMON 

/SCEN/ 

ISURF 

COMMON 

/SCEN/ 

JSNOU 

COMMON 

/SCEN/ 

K4il 

COMMON 

/SCEN/ 

KiI2 

COMMON 

/SCEN/ 

Kii3 

COMMON 

/SCEN/ 

KilA 

COMMON 

/SCEN/ 

KiI5 

COMMON 

/SCEN/ 

KII6 

COMMON 

/SCEN/ 

K4i7 

COMMON 

/SCEN/ 

MII8 

COMMON 

/SCEN/ 

K4i9 

COMMON 

/SCEN/ 

K>iiie 

COMMON 

/SCEN/ 

Killl 

COMMON 

/SCEN/ 

Mi  1 12 

COMMON 

/SCEN/ 

KiiL3 

COMMON 

/SCEN/ 

KHIA 

COMMON 

/SCEN/ 

Kills 

COMMON 

/SCEN/ 

KII16 

COMMON 

/SCEN/ 

KI417 

COMMON 

/SCEN/ 

KHAP 

COMMON 

/SCEN/ 

KSCEN 

COMMON 

/SCEN/ 

Kiep 

COMMON 

/SCEN/ 

KWEH 

COMMON 

/SCEN/ 

KiVl 

COMMON 

/SCEN/ 

KiV2 

COMMON 

/SCEN/ 

K2V3 

COMMON 

/SCEN/ 

Kil/4 

COMMON 

/SCEN/ 

KIV5 

COMMON 

/SCEN/ 

KIV6 

COMMON 

/SCEN/ 

KilV7 

COMMON 

/SCEN/ 

K1V8 

COMMON 

/SCEN/ 

KiV9 

COMMON 

/SCEN/ 

KiVl  2 

COMMON 

/SCEN/ 

M 3V 1 1 

COMMON 

/SCEN/ 

K4V12 

COMMON 

/SCEN/ 

KiVl3 

COMMON 

/SCEN/ 

KiV14 

COMMON 

/SCEN/ 

KIVIS 

COMMON 

/SCEN/ 

KiVl  6 

COMMON 

/SCEN/ 

KJV17 

COMMON 

/SCEN/ 

KiV18 

COMMON 

/SCEN/ 

MiV19 

COMMON 

/SCEN/ 

KiV2ld 

COMMON 

/SCEN/ 

K1V21 

COMMON 

/SCEN/ 

LAC 

INTEGER 

CiTAlL 

COMMON 

/SCEN/ 

CETAIL 

COMMON 

/SCEN/ 

MAP 

COMMON 

/SCEN/ 

MAPG 

COMMON 

/SCEN/ 

COMMON 

/SCEN/ 

NGPP 
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COMMON  /SCEN/ 

NSLIP 

COMMON  /SCEN/ 

MRAV 

COMMON  /SCEN/ 

MUX 

COMMON  /SCEN/ 

fHI 

COMMON  /SCEN/ 

Pi  ACT 

COMMON  /SCEN/ 

FOFOG 

INTEGER 

SEARCH 

COMMON  /SCEN/ 

S8ARCH 

COMMON  /SCEN/ 

SfTYPC 

COMMON  /SCEN/ 

VfiRAKE 

COMMON  /SCEN/ 

ViSMhV 

COMMON  /SCEN/ 

VLIM 

COMMON  /SCEN/ 

2SNCW 

2.  ALGORITHM 

CALL  UK 

«■  CONVl  .ENGINE 

flAP.G  CONVl 

*■  .NHVALS  .NSVALS 

. PFA 

.POWER 

«■  ,TQINC  ,VAA 

.VOA 

»VQCB 

NAMELIST  /XIII/ 

CONVl  .ENGINE 

.lAPf  .ICONVl 

♦ .NHVALS  .NSVALS 

, PFA 

.POWER 

*■  .TQINC  ,VAA 

,VDA 

• VOCB 

IFIKIIl  .EO.  li  WRIIEILUNI.XII 

CALL  1121 

*•  GCW  ,GCWB 

.GCWNS  .GCWNP 

♦ ,WGHT  I 

, 

NAMELIST  /XII2/ 

♦ GCW  ,GCWB 

•GCW MB  .GCWNP 

,WGHT 

IF(KII2  .EG-  n 
*■  k^RITEdUNi,  XJi2» 

CALL  II  3{ 

*■  ICONS!  ,NAMBLY  ,NVEF  .NkHL 

,VTIRE  ,HGHT  > 

NAMELIST  /XII3/ 

^ ICONS!  ,NAMBLY  ,NVEF  ,NMHL 

,VTIRE  , WGHT 
IF(K1I3  .EG.  II 
*■  V<RITEILUN1,XII3) 


•lENGXN 
.GMiAX 
• VOOBS 

•I POWER 
• RPH 
rVRlOE 

.MAX I PR 
.SPEED 
• VSS  i 

.MAXL 

.TORQUE 

•lENGIN 

• QMAX 

• V006S 

•I POWER 
,RPH 
rVRIDE 

.maxipr 

.SPEED 

»VSS 

• MAXk 
.TORQUE 

.GCWP 

,IP 

.NAMBLY 

.GCWP 

» 16 

f IP 

• NAMBLY 

•RDI AM 

• RINW 

.SECTW 

• TPSI 

.RDIAM 

• RINW 

.SECTW 

,TPS  1 

CALL  IIA( 

♦ NAMBLY  ♦PkTE  , k!  ,W!E  ) 

namelist  /XU 4/ 


♦ NAMBLY  ,PWTE  , W!  ,WTE 

IFIKIIA  ,EO,  M 


+ kRI  TEILUNI , XU4  I 
CALL  ii5( 

+ OFLCT  ,DRA!  , NAT<B*iY  ,NVEH  ,SECTH  I 

NAMELIST  /XII5/ 

♦ OFLCT  ,ORAT  ,KAi<BllY  ,NVEH  ,SECTH 

IF(KM5  .EG.  1) 


+ kRITE(LUNl,XII5) 
CALL  116  ( 
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*• 


* 


*■ 


*■ 


f 


t- 


«■ 


f 


♦ 


f 

4- 


♦ 


4 

* 


CHARLN  .DFLCT 

• DIAW 

.NAMBLY 

• NVEH 

.TRAKLN 

1 

NAMELIST  /XI16/ 
CHARLN  , DFLCT 
IF<KII6  -EO.  11 

» CIAW 

.NAMBLY 

.NVEH 

, TRAKLN 

WRITE(LUN1,XII6> 

CALL  llli 
CHARLN  ,GCA 

.NAPBtiY 

.NVEH 

tSECTU 

.TRAKWO 

) 

NAMELIST  /XII7/ 
CHARLN  fGCA 
IF1KII7  .EG.  1» 

.NAPEkV 

.NVEH 

.SECTW 

•TRAKWD 

kRITE<LUNl,XII7» 

CALL  II&( 

CGLAT  ,ID 

.NAMBLY 

.NVEH 

•SECTW 

• WT 

.WTMAX 

NAMELIST  /Xllb/ 
CGLAT  ,ID 

IF(  KIT8  .EG.  1 > 

•NAMBLY 

.NVEH 

• SECTm 

• WT 

•WTMAX 

kRITE(LUNl,XlI81 

CALL  II9I 

IP  tNAMBLY 

♦ NVEh 

• REVM 

• RR  1 

NAMELI  ST  / XU9/ 

IP  fNAMBLY 

.NVEF 

,R£VM 

• RR 

IF!  KII9  .EO.  1 I 

WRlT6iLUNl.XlI9» 

CALL  lllkj( 

IB  .NAMBLY 

• WGHT 

•KBRCOF 

.XBR  1 

NAMELIST  /XlLlk)/ 

IB  .NAMBLY 

.WGHT 

fXBRCQF 

,XBR 

TF(  KUlii  .EG.  1 

1 WRIIEI  LUN1.XII10I 

CALL  IIIK 

GCkP  ,HPN£T 

,HFT  k 

NAMELIST  /XIIIl/ 

GCkP  ,HPNET 

.hPT 

IFi  Kllll  .EG.  1 

1 WRlTEILUNl.Xlill) 

CALL  1I12( 
ASHOE  .CLRMIN 

.CPFffi 

.DFLCT 

• DIAW 

.GROUSH 

..HPT 

,IP  .TTVAR 

. NAMELY 

.NBCGIE 

•NCHAIN 

.NVEH 

.NWHL 

tSECTk  ,TRAKLN 
NAMELIST  /XII12/ 

.TRAKWC 

tVCIFG 

.WGHT.  1 

ASHOE  .CLRMIN 

.CPfTfi 

.DFLCT 

• DIAW 

.GROUSH 

• HPT 

.IP  .ITVAR 

.NAMELY 

•NaCGIE 

• NCHAIN 

.NVEH 

.NWHL 

fSECTk  .TRAKLN 

.TRAKWO 

.VCIFG 

.WGHT 

IF(  Kin2  .£Q.  1 

) WRIIE<LUN1.XII12) 

CALL  IIISI 
CPFCG  ,IB 

. IP 

.NAMBLY 

.NVEH 

.NWHL 

.RDIAM  .SECTW 
NAMELIST  /XIil3/ 

,TPLY 

• TPSI 

.VCICG 

.WGHT  ) 

CPFCG  ,IB 

. IP 

.NAMBLY 

.NVEH 

.NWHL 

.kOIAP  .SECTN 

,TPL  V 

• TPSI 

.VC  ICC 

• WGHT 

IF!  KII13  .EG.  1 

1 WRIlEILUNl.XIIiat 

CALL  III4( 

UIAW  ,IB 

.IP 

.NAMBLY 

.NVEH 

,NWHL  .SECTW 

NAMELIST  /XMU/ 

.TRAXL^ 

• TRAKWD 

•VCIMUK 

.WGHT  1 

,SECIH 


• IB 

•SECIH 
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100 


4- 

OIAW  .16  .IP 

.NAMBLY 

.NVEH 

f 

.NWHL  .SECTW  .TRAKAiN 

.TRAKWO 

.VCIMUK 

,WGHT 

IFI  KIIIA  .EQ.  1 i WRI<SEILUNl«XniAF 

CALL  II15( 

4- 

CPFCCG  .CPFCFG  ,CPFC6 

.CPFFG 

GO 

*■ 

.IP  .NAM6LY  .NVEF 

NAMELIST  /XII15/ 

.NVEHC 

1 

¥ 

CPFCCG  .CPFCFG  .CPFCfi 

.CPFFG 

• IB 

¥ 

.IP  .NAMBLY  .NVEF 

.NVEHC 

IF(  KI115  .EO.  1 i WR^IEILUNI.XIIIS) 

CALL  II16( 

¥ 

ATF  ,BTF  .CONVi 

•CQNV2 

• CTF 

.EFF 

^ENGINE 

.FD 

¥ 

.FORCE  .GR  .lAPC 

, ICONVl 

.ICONV2 

, I ENG IN 

. I POWER 

.ITCASE 

¥ 

.ITRAN  .KII16  .LOCKUP 

.LUNl 

.MAPG 

¥ 

.NGR  .PE  , POWER 

,RR 

•RPM 

.SPEED 

«SR 

.TCASE 

¥ 

.TORQUE  .TQINO  ,TR 

.TRACTF 

.TRANS 

,VGV 

.TOPSPD 

,NPTS 

¥ 

.lERRCR  » 

NAMELTST  /XiM6/ 

¥ 

ATF  .BTF  , CON VI 

,CONV2 

,CTF 

.EFF 

.ENGINE 

.FD 

¥ 

.FCRCE  .GR  , lAPC 

.TCGNVl 

.1CONV2 

. lENG  IN 

t I ERROR 

. ITCASE 

¥ 

•ITRAN  fKlIlB  .LOCKUP 

.LUNl 

,MAPG 

¥ 

,NGR  .PE  .POWER 

,RR 

,RPM 

.SPEED 

,SR 

, TCASE 

¥ 

.TORQUE  .TQIND  , TR 

.TRACTF 

.TRANS 

.VGV 

.TOPS  PD 

.NPTS 

¥ 

, I ERROR 

IFI  KI116  .EQ.  1 h «R1TEILUN1#XI116) 

CALL  II17I 

¥ 

CIO  .lOIESI,  ,GCW 

.NAMBLY 

.NCYL 

»NENG 

¥ 

,NGR  .NVEH  ,CMAX 

,RMX 

• RR 

.TRACTF 

i 

NAMELIST  /XU17/ 

¥ 

CIO  .lOIESL  .NCYL 

fNENG 

.NVEH 

• OMAX 

.RMX 

IF(Klil7  .EQ.  li  URITE<LUM,XII17I 

1F((  DETAIL  .N£»  S I .AND.  ( IE<<RCR  .NE»  I ))  GOTO  100 
CALL  PLTSETI 


*■  NfTS  ,VGV  ,N€ft  *ATF  ,BTF  ,CTF 
* »tfO*^ER  .POWER  ,TCeSPC*,LUNl) 

STOP  3 
CONTINUE 
RETURN 
END 

SUBROUTINE  IIK 


+ 

CONVI 

, ENGINE 

, lAPC 

.ICCNVl 

• lENGIN 

.IPDWER  .MAXI PR 

.HAXL 

4- 

.NHVALS 

.NSVALS 

. FFA 

.POWER 

.QMAX 

rRPM 

.SPEED 

• TORQUE 

4- 

.tqinc 

.VAA 

• VOA 

.VOC8 

.VOOBS 

.VRIDE 

.VSS  » 

— — — 

LMTS  CONVERSION  ROUTIAE 


1.  VARIABLE  OECLARATICN 
REAL  CON  VI  124251 

REAL  ENGINE  I 2#25l 

INTEGER  lAPG 
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INTEGER  iCONVl 
INTEGER  lENGIN 
INTEGER  IPQWER 
INTEGER  L 

INTEGER  MAXIPP 
INTEGER  MAXL 

INTEGER  RPM 

INTEGER  SPEEC 

INTEGER  TORQUE 
INTEGER  N 

INTEGER  NH 

INTEGER  NHVALS 
INTEGER  NR 

INTEGER  NS 

INTEGER  NSVALS 
REAL  POWER 

REAL  QHAX 

REAL  TOIND 

REAL  VAA 

REAL  VGA 

REAL  VOCB  i5t» 

REAL  VOOBS  (ikll 

REAL  VRIOE 

REAL  VSS 

C 3.  ALGORITHM 

VSS  = VSS*52 80. *12. /«A. /60- 
DO  110  NHsl,  NHVALS 

VOGB(NH)=VOCE(NH*5280.*12./60./b0.. 

110  CONTINUE 

DO  120  NS  = 1, NSVALS 

VOOBSi  NS) -VOCBSI ASl *&280.»12./60./60. 

120  continue 

DO  135  L=1,MAXL 

CO  130  NR  = 1,  RAX  liiR 

VRIOEC  NR^  LI  =VRIDE<NP,Ll*5280.*l2./6a./60. 
130  CONTINUE 

135  CONTINUE 

PFA=PFA*1A4. 

VAA=VAA*3. 1415 9265/180. 

VDA=VDA *3. 14159265/280. 

IF(  lAPG  .EO.  1 V CQ  TC  145 
CO  140  N=It'lFCWER 

POWER!  SPEED,  M*PCWERCSPEEC,N1*! 88./60.1  *12  . 
I<t0  CONTINUE 

145  CONTINUE 

if:  IAPG  .EQ.  2 I GG  TC  199 
CO  150  N = 1,IENGIN 

ENGINE! RPM,NlaENGiNE(RPM,NI/60.0 
ENGI  NE!TQRQUE«NI- ENGINE!  TOR  OJE,N)«sl  2. 

11.0  CONTINUE 

CO  170  N = l,  ICONVl 

CCNVH  RPM,M*=CCNV1(  RPM,Ni/60J 
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170  CONTINUE 

CMAX  =OMAX*12.0 
TQIND=TQTNC*12. 0 
199  CONTINUE 

RETURN 
END 

SUBROUTINE  lUC 

«-  GCw  tGCMB  yiGCWNB  ,GCWNP  tGCWP 

4-  ,IB  .IP  «NAMC4y  «W6RT  I 

C 

DIMENSION 

4-  IBi20)-  #|PI20I  •MGHT(20I 

C GROSS  COMEINED  WEIGHT  ROUTINE 
GCW=  0*  0 
GCWP=0-0 
GCWB=0  .0 


DO  210  I=1,NAMBLY 
GCW=GCM+WGHTI I) 

GCWe=GCW8*WGHT(  I>*FfeCATI  IfilH  » 
GCWP=6CWP*WGHTt  l»«fLGATI  IPMI  I 
^10  CONTINUE 

GCWNP=GCW-GCWP 


C 


C 


GCWNB=GCW-GCWB 

RETURN 

END 

SUBROUTINE  IlSt 
♦ ICONS!  ,NAMBLY 

• KVEF  »NWHL 

.RCIAM 

*■  ,RIMW  ,SECTW 

,TPS»1  .VTIRE 

.WGHT  ) 

DIMENSION 
+ I CONST!  201 

« MiEH(20) 

^NWHtil  20) 

*■  ,RDIAM(20» 

* P<iMH4  20  } 

.SECiW<20T 

,TPSII20,3> 

• VTI  204. 3 » 

+ ,VTIRE<3I 

.WSHT<20) 

MAXIMUM  TIRE  SPEED  RCUTINS 
DO  325  J=1  ,3 


DO  320  I = 1,NAMBLY 
VTtI,J»=0. 

IF<  NVEHdl  .EG.  0 J 6C  TO  315 

Sl=(  SECTkl  IIfli0«4.*RiMwUI  1/0,75 
HWY=I  A.32/IS1‘0*2.'38TI 

+ ♦{UWGFTI  IA/FLOATINWHUII  » »/lRDIAM{  I)«Sin*«-1.71» 

IF!  ICONSTIII  .EC.  1 » GO  TO  310 


VT(  1»  J»-M00.*5280.*12./3600.  » 
*•  *I  4TPS4I  I.J»/HWyP**2  ♦ 

GO  TO  320 

310  CONTINUE 

VTl  30»£i§2  80^*12^/3600^t 

^ ♦(  ITPSIi  1#JI</HWY»**2.25  I. 

315  CONTINUE 

320  CONTINUE 

325  CONTINUE 
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CO  3*40  J=U3 

VTIFE(JI=VT(1,J) 

DO  330  I=2,NAM0LY 

IF{VT(I,J»  .LT.  .WTIRE(JJI 
••  VTIREI  Ji  = VT< 

330  CONTINUE 
340  continue 
RETURN 
END 

SUBROUTINE  il4( 

♦ NAMBLY  .PWIE  , RT  ,WTE  I 

C 

DIMENSION 

WT(20)  ,iWTEf20l 

C MAXIMUM  path  WIDTH  OF  COMBINATION'S  TRACTION  ELEMENTS 
PWT£=WTI  il-WTECll 
DC  410  1 = 2, NAMBLY 

IFUWT(  H-WTEi  I IT  .6T.  PWTE) 

♦ PWTE=WT( I I^WTEI  lA 
sl0  CONTINUE 

RETURN 

END 

SUBROUTINE  II5( 

♦ uFlCT  .DRAT  .NAIVELY  .NVEH  .SECTH  T 

C 

DIMENSION 

' OFLCr<20.3l  ,ORATI20,3I  •NVEHi20) 

♦ ,SECTHI20I 

C TIRE  DEFLECTION  RATIOS 
CO  520  J=l,3 

DO  510  1=1, NAMBLY 

IFINVEHIII  ,EQ.  01  GO  TO  500 

ORAT(I,JI=CFLCTll«Jl/SECTHiit 
500  CONTINUE 

510  CONTINUE 

520  CONTINLE 
RETURN 
END 

SUBROUTINE  II6( 

♦ CHARLN  ,0FLCT  , CIAR  , NAMBLY  .NVEH  ,TRAKLN  I 

C 

DIMENSION 

i-  CHARLNi  20,31  #OFLCTi20.3l  »OIAW<20T 

4^  ,NVEHI20)  «TRAKLM20I 

C CHARACTERISTIC  LENGHT  GF  ILEKENTS 
CO  630  J=l,3 

DO  620  1=1, NAMBLY 

IF(  NVEHdl  .EQ.  1 » GC  TO  610 
C TRACKED  ELEMENT 

CHARLNI  I,  JT=TRAKLN(II 
GO  TO  620 

610  CONTINUE 
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c 

WHEELED  ELEMENT 

CHARiNUfJ  1=2.0 

«■  ♦SORT!  (C*fLCT44#^**01AW<  HI 

+ -(OfLCT{I,JI#BFLCT4I,J)l  ft 

620 

CONTINUE 

63  0 

CONTINLE 

RETURN 

END 

SUBROUTINE  II7( 

+ CHARLN  ,CCA  , NAP  Bis  Y ,ftlV£H  ,SECTW 

tTRAKwO  1 

DIMENSION 

«■  CHARLN{20,3)  ^GCAI20,3) 

* •SECTWI20)  ftTRAKWC(20> 

tNVEHl  20» 

C 1 

GROUND  CONTACT  AREA  Of  ELIPEKTS 

DO  730  J=l,3 

DO  720  J=1,NAMBLY 

IFINVEH(I»  .ECW  1)  GO  TO  710 

c 

TRACKED  ELEMENT 

GCA(  It  J)  = CHAR>lsN(I,  JI6TRAKWCI  U*2 

• 

710 

CONTINUE 

C 

WHEELED  ELEMENT 

GCAI  ItJ)=CHARLN4i«JI*S£CTW<  I ) 

72  0 

CONTINUE 

73  0 

CONTINUE 

RETURN 

END 

SUBROUTINE  II8( 

C 

♦ CGLAT  ,ID  tNAMetV  .NVEH  .SECTW 

OiMENS ION 

• WT  tWTMAX 

4-  ID(20)  ^NVEH4  20) 

«■  ,WT(20> 

rSECTW4  20) 

C CONTROLLING  LATERAL  OISTAAfCE  TO  C.G. 
WTMAX=500. 

DO  630  T=1  .NAMBLY 

IfINVEHIIl  ,EQ,  is)  fiC  TO  810 

C 

WHEELED  ELEMENT 

TEMP=I  WTI  &)/2.  It-CGLAT 
»■  *■<  SECTW<I»/2*  ft*FLGAT(  ICIIft  I 

GO  TO  820 

81  0 

CONTINUE 

C 

TRACKED  ELEMENT 

TeMF=4  WTI  n/2.  ft-CGLAT 

820 

CONTINUE 

IF (TEMP  .GE.  WTMAXI  60  TO  825 
WTMAX=TEMP 

825 

CONTINUE 

830 

CONTINUE 

RETURN 

END 

SUBROUTINE  1191 

* IP  fNAMBLY  sNVEh  ,REVM  ,PR  » 
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DIMENSION 

♦ 1PI20)  »NVEHi2a>  .REvniaai 


ROLLING  RA0^US  OF  LARGEST  PQWEitEO  TIRE  aEMENT 


RR=0-D 

DC  910  I=1,NAMBLY 

IF(  IP<  II  .EO.  0 T GO  TO  910 

RX>(  5230.0«i2.0  I/I  2 .0»3.i41S9265*REVHI II 


IFC  RR  .LT.:  RX  I RR*RX 
CONTINUE 
RETURN 
END 

SUBROUTINE  11101 

* IB  ,NAMBLY  «kGHT  .XBRCOF  fXBR  I 


i 


OIMENS  ION 

IB(20)  >GHT(20i 


MAXIMUM  BRAKING  FORCE  DEVELOPED  BY  BRAKED  ASSEMBLIES 


XBR=0. 0 

DC  1010  I = 1,NAMBLY 

XBR  = XBRtXBRCOFO|«GHTfi.II*FLC4TI 
10  CONTINUE 
RETURN 
END 

SUBROUTINE  Uil  i 
^ GCWP  *HPNET  ,1-PT  * 


IBIIi-  T 


HORSEPQWER/TON 


HPT=HPNET/lGCWP/2000.  I 
RETURN 
END 

SUBROUTINE  II12( 


ASHOF 

,CLRMIN 

,CPFFG 

.OFLCT 

• CIAW 

, GROJSH 

,HPT 

f IB 

IP 

,ITVAR 

• NAMBLY 

,NBCGIE 

•NCHAIN 

,NVEH 

tNMHL 

•SECIH 

SECTIk 

• TRAKLN 

•TRAhHC 

»VC IFG 

,WGHT  F 

DIMENSION 

♦ ASHOEt20l«  #CLPMIN<20I  ,CPFFG(20*3I 

*■  ,OFLCTI20t3}  3C1AW(20I  »GROUSHI20T 

4-  ,IB<20t  #IP120)  •NBOGiEI20l 
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*■  ,NCHAIN(20i 
,SECTH(20I 
♦ ,TRAKLNI20>. 
«•  ,NGHTI20) 


^NVEH{20I 

»SECTUi20l 

•TRAKyC(20l 


,NMHL<i2  0) 
,TOF^  31 
• VC1F6(20»  3^ 


VEHICLE  CCNE  INDEX  IN  FI  Kg  GRAINED  SOIL 


C 


i5l0 


1512 


151<t 

IS  16 
C 

C 


1518 

1520 

C 

C 

c 


CO  1556  I=1,NAMBLY 

IF!  IPllh  .EQ.  0 .AND.  IBUI  .EQ.  0 I GO  TO  1555 
IFI  NVEHCIi  -Et,  i I GO  TO  153<f 

— — - r- - — •-*1*'-'* 

WHEELED  ASSEPeLY  ROUTINE 


CONTACT  PRESSURE  FACTOR 
CPFFGi  i,lUWGHT4  II 

f /(  SECTWMAi-FLOATiNWHLi  in*D<AW(|l/2.  ) 

CPFFGC I,2I«CPFFG(J,1A 
CPFFGI  I,3.>«CPFFGn,l  » 

WEIGHT  FACTOR 

IFf  WGhTITA  2000^0  I GO  TO  1510 

WF= 0 .5516M GHT ( I 1 /1000 . 

GG  TC  <1&16 
CONTINUE 

IF(  WGHTITA  .GE,  1350ev  > GO  TO  1512 
WF=0.03a*WGHTCII/1000.0«'r.0 
GO  TO  <1*16 
CONTINUE 

if:  WGHTIIA  .GE.  20000.0  » GO  TO  1514 
WF=0.14av*WGHT{Il/1000.0-0.42 
GO  TO  1*16 
CONTINUE 

WF=0,270*W«HT:i» /1000.0-3,115 
CONTINUE 
TIRE  FACTOR 

TF=U0.0»S£CTWiI  U/102.0 
GROUSER  FACT  CP 

IFi  NCHAIN«lli  .EC.  0 T GO  TO  15LB 
GF=1.05 
GO  TC  1J20 
CONTINUE 
GF=1.0 
CONTINUE 

WHEEL  LOAD  FACTOR 

WLORF=WGHT41J  /1000.0/FLOAT4NWHLUi  1/2  . 
CLEARANCE  FACTOR 

CLF  = CLRM1M€  1/10.0 
ENGINE  FACTOR 

IF(  HPT  .LI.  10.0  » GO  TO  1522 
EF=1.0 
GG  TC  1*24 


203 


R-2058,  VOLURE  I PAGE  A-31 

APPENDIX  A - LISTING  OF  FRCGPAR  NRPM 


1522 

152A 

C 


1526 

1528 

C 


1530 

C 

c 


1532 

1534 

C 

C 

c 

c 


c 


1536 


1538 


1540 

1542 

C 

c 


1 544 


CONTINUE 

EF=U05 

CONTINUE 

transmission  fACTOR 

IFl  ITVAR  ^EQ.  0 I GO  TO  1526 
TFX=1.^S 
GO  TC  a£i8 
CONTINUE 
TFX=1.0 
CONTINUE 

TIRE  DEFLECT aCN  FACTOR 
DO  1530  J=l,3 

TOF(Jl=U1.0-DFLCTn,,Jl/SECTHU  U/0.85»**1.5 
CONTINUE 
MOBILITY  INDEX 

XMl=tCPFFG4  I,  U ♦WF/TF/GF>WLQRF-CLFI»EfnFX 
VEHICLE  CCNE  ANOEX 
DO  1532  J>1«3 

VCIFGM#ai=<  1 1.484  2.2*XMI-3  9.2/<XMI+3.74>I 
♦TOF0UI. 

CONTINUE 
GO  TO  1556 
CONTINUE 

-I-  — — — 

TRACKED  assembly  ROUTINE 

CONTACT  PRESSURE  FACTOR 

CPFFGI  I*1F=WCHTUF/  < 2,*TRAKLN(  U*TRAKWO<  l»  I 
CPFFG(I,2)=CFi;FG{I»l) 

CPFFGa»i)=CF<F6(l«U 
NEIGHT  FACTOR 

IF(  WGHTill  .BE.  50000.0  ) GO  TO  1536 
WF=1.0 
GO  TO  1542 
CONTINUE 

IFI  WGHTIIF  „6E.  70000.0  1 GO  TO  1538 
HF=1.2 
GO  TO  1542 
CONTINUE 

I FI  WGHTI  II  ..GE.  100000.0  I GO  TO  1540 
WF  = 1 .4 
GO  TO  1542 
CONTINUE 
WF=I.8 
CONTINUE 
TRACK  FACTOR 

TF=TRAKWC(IF/100.0 
GROUSER  FACTOR 

IFl  GROUSKII  ,.LT.  1.5  » GO  TC  1544 
GF*1.1 
GO  TC  1546 
CONTINUE 
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GF=l.e 


15A6  CONTINUE 

C BOGIE  LOAD  RANGE  FACTOR 

WLORF*WGHTI  1 1 /Hj.0/FLOAT{  NEOGl  El  I>,J/ASH0£U> 
C CLEARANCE  FACTOR 

CLF=CLRM!M  I>Sfl0,0 
C ENGINE  FACTOR 

IF(  HPT  .LT*  10*0  I GO  TC  15A8 
EF*1«0 
GO  TO  1550 

1548  CONTINUE 

EF=1.05 

1550  CONTINUE 

C TRANSMISSION  FAaOR 

IF!  ITVAR  .Ea  0 I GC  TO  1552 

TFX=i.03 


1552 

1554 

C 

C 


1555 

1556 


60  TO  155,4 
CONTINUE 
TFX=1,0 
CONTINUE 
R08ILITY  INDEX 


X M 1=  I C P Ffi Gl  iA  6WF/ T F/ GF  ♦MLCR f -CL  F > ♦ £ F*T F X 

VEHICLE  CONE  .INC ilX 

VCIFGi  1,1 l=7««*0.2*XMl-39.2/IXMI+5.6l 
VCIFGI  I,2l  = V0ltf6M,l) 

VCIFG(.l,3)=VCiFGU,U 


CONTINUE 

CONTINUE 

RETURN 

END 

SUBROUTINE  II13( 
+ CPFCC  ,IB 
*•  ,kDlAR  tSECTW 
OIMENS  ION 
••  CPFCG(20,3» 

♦ ,NVEH(20) 

*■  ,SECTW(20l 

♦ ,VCICGI20,3» 


, IP  ,NAP8LY 

,TPLY  ,TPSI 

# IB  120) 

• lYWHLI  20) 
#TPLY<20I 
^GHT<20) 


,NVEH 
• VCICG 


,NWHL 
,WGHT  ) 

• 1P<20) 
,ROIAM( 201 
,TPSH20,3) 


VEHICLE  CCNE  INDEX  IN  COARSE  GRAINED  SOIL 


DO  16712  l=i,NAMBLY 

IFI  IP(I)  .EQ.  0 *ANO.  IBID  . EQ^  0 ) GO  TO  1660 
IF(  NVEHd)  .EQi.  0 » GC  TO  1640 

WHEELED  ASSEMBLY,  ROUTINE 

— — r— — — I.*  - — 


WHEEL  01 A PETER  FACTOR 

IF(  SECTWCil/RDIAMlI)  .LI  • 2*4  ).  GO  TO  1610 
WOF=2.0 
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GC  TC  i«e 

1610  CONTINUE 

WDF=5.ia 

1620  CONTINUE 

DO  1630  J = l,3 

C CONTACT  PRfSSUftE  FACTOR 

CPFCGC  i^til)s0.607«TPSUl»J*«- 
t-  1,35^1117.  0*TPLVI  I 

* IW0F46ECTW(II*RCIA4mMI-6«93 

C CONTACT  ARgJ  FACTOR 

CAF=ALC610lWGHTn  i/CPFCG{  l»  JM 
C STRENGh  FACTOR 

STF=0«0J26«FLCATiNWHL<IFF»0^0211*TPSI( 

* -0j3S<CAF*1,587 

C VEHICLE  CCNE  INDEX 

VCICG(  l3«|i=ia.0*'*STF 
1630  CONTINUE 

GO  TO  1660 
i6A0  CONTINUE 

C TRACKEC  ASSEMBLY  FACTOR 


1650 

1600 

1670 


CO  1650  J = L,3 
VCICG( I, J)=0. 
CONTINUE 
CONTINUE 
CONTINUE 
RETURN 
END 

SUBROUTINE  1114 
H OIAW  ,IB 

^ .NUHL  tSECTH 

DIME  NS  ION 
>■  O1AR(20) 

I-  tNVEH(2ei 

► ,TRAKLN(20» 

► ,VCI^UK(20» 


{ 


, IP 

tTRAK«^ 


,NAMBLY 

(TRAKWO 


•,NVEH 

tVCIHUK 


#f  Bi  20) 
*NNHL4  20) 
iTRAKWCi20) 


C 

C VLH.ICLE  CCNE  INDEX  IN  MUSKEG 

c 


,hGHT  ) 

•IP420) 

» SECTN(20) 
,WCHT<20) 


ItJ) 


CO  1730  I=1,NAMBLY 

IF(  IP(I)  .EO.  0 ,.AAO.  le(I)  .EO.  0 ) GO  TO  1720 
IFI  NVEHIl)  .EQ.  0 1 GC  TO  1710 
VCINUK4  1)  =13..4f0.5J5»WGHTi  1) 

/USECTUl  DAOIAWd)  )*FLOAT(NUHL(  I)  )•) 

GO  TO  1730 

1710  CONTINUE 

VClMUKi  II>13.0«-eA0625*MCHT|  II 
*■  /(TRAKWOl  n^TRAKLNU)) 

1720  CONTINUE 
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1730  CONTINUE 
RETURN 


END 

SUBROUTINE  1115  (, 

+ CPFCCG  tCPFCFG  ,CPFC6  ,CPFFG  ,18 


f ,IP  ,NAMBLY 

,NVEfc  .NVEfcC  1 

DIMENSION 

♦ CPFCCGI  31 

•CPFC6f20,i» 

,CPFCFGI3I 

*■  ,CPFFGI20,3I 
* ,NVeHi20» 

048  (20 1 

, IPI 20  > 

COMBINED  CONTACT  PRESSURE  FACTOR  ROUTINE 


1800 


ibl0 

1820 

1830 

1840 


1850 

1860 

1870 

1880 

1890 


N1=0 
N2  = 0 


DO  1800  1=1,NAMBLY 

IFi  NVEHII)  .EQ«  0 P Nl=-1 
IFI  NVEH(  1)  .EQ.  I A N2=l 
CONTINUE 
NVEHC=M+N2 

IF(  NVEHC  .NE.  1 » GO  TO  184  0 
DO  18  30  J=l,3 
CPFCFGi  Jl  =0,0 
CP FCCGI  J 1 = 040 


CO  1820  I = l,NAMBfc-Y 
I FI  iBdi  .EC2  & 
IFl  CPFFG.M*JI 
IF(  CPFCGIi,J» 
CONTINUE 
CONTINUE 
CONTINUE 
GO  TO  1890 
CONTINUE 
DO  1882  J=l,3 
CPFCFGU1=0.0 
CPFCCGI  J)=0,0 
DO  1870  I = 1,NAMBLY, 

!Fi  NVEHdk  .NE,.  0 > 
IF!  I0I  1)  .ECw  0 
IF!  CPFFGiJ^Jl 
IF(  CPFCGlllJ^ 
CONTINUE 
CONTINUE 
CONTINUE 
CONTINUE 
CONTINUE 
RETURN 
END- 


.AND.  IPdt  .EQ.  0 I GO  TO  1820 
• GT.  CPFCFQU)  > CPFCPGIJMCPFFGI  I#Ji 
.GT.  CFFCCGIJF  h CPFCCGI Ji =CPFCGI I JJ* 


GO  TO  1860 

.AND.  IPdl  .EQ.  0 1 GO  TO  1850 
.GT.  CPFCFGIJF  J CPFCFGI  JI  = CPFFGI  I kJI 
^GT.  CPFCCGI  J»  i CPFCCGlJ»=CPFCGd*J» 


SUBROUTINE  1116  I 
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+ 

ATF 

,BTF 

♦ CCNVl 

♦CQNV2 

.CTf 

♦ eff 

♦ENGINE 

♦ FD 

+ 

♦ FORCE 

,GR 

, ImPG 

♦4C0NV1 

• 1C0NV2 

* lENGIN 

♦I POWER 

rITCASE 

♦ 

♦ITRAN 

• KIU6 

♦ LCCtKWP 

fLUNl 

«MAPG 

♦ 

,NGR 

♦ PE 

t POWER 

♦ RR 

• RPH 

, SPEED 

«SR 

rTCA  se 

4- 

♦TORQUE 

♦TQINC 

♦ TR 

♦ TRACTF 

♦TRANS 

♦ VGV 

♦TOPSPO 

♦ NPT3 

<- 

tflERRCR 

1 

POWER  TRAIN 

SCENAR  10 

L06IC 

1.  VARIABLE 

OECLARATiCN 

real 

ATF 

i 201 

REAL 

BTF 

1 201 

REAL 

CONVl 

(ii42S) 

REAL 

C0NV2 

i 2^25) 

REAL 

CTF 

REAL 

ENGINE 

I 2«25) 

REAL 

FO 

(2i 

INTEGER 

lAPG 

INTEGER 

ICONV  1 

INTEGER 

IC0NV2 

INTEGER 

lENGIN 

INTEGER 

I POWER 

INTEGER 

ITCAS  E 

INTEGER 

ITRAN 

INTEGER 

KII16 

INTEGER 

LOCKU  P 

INTEGER 

LUNl 

INTEGER 

NAPG 

INTEGER 

HO 

INTEGER 

EFF 

INTEGER 

FORCE 

INTEGER 

GR 

INTEGER 

RPH 

INTEGER 

SPEED 

INTEGER 

SR 

INTEGER 

TORQUE 

INTEGER 

TR 

INTEGER 

NGR 

REAL 

PE 

REAL 

POWER 

1 2«201l 

REAL 

RR 

REAL 

TCASE 

i2h 

REAL 

TQIND 

REAL 

TRACTF 

( 2fl«  5 1 

REAL 

TRANS 

REAL 

VGV 

i 20«5I 

PE=2.0 

C 3.  ALGCR€THM 

IF( RAPG  .NE.  1»  GO  TO  200 
IFMAPG  .EG.  2)  GO  TO  100 
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100 


200 


300 


400 


CALL  TRAIN  ( 


*■ 

CONVl 

«(IONV2 

•ENGINE 

»fC 

• ICONV  1 

f 

tlCONV2 

•tiENG«IN 

•ITCASE 

• ITRAN 

•LOCKUP 

♦ 

♦ EFF 

«£GRCE 

• GR 

»RPH 

•SPEED 

f 

• SR 

«JEORGUE 

.tr 

• NGR 

• PE 

♦ 

tRR 

.•XCASE 

• TGIND 

• TRANS 

• IPQWER 

♦ 

•POWER 

.•AiUNl 

»K  11  UN 

CALL  FIT 

i 

IPQWER 

««ORCE 

•SPEED 

♦ 

• POWER 

,ATF 

• 8TF 

• CTF 

• NCR 

, TRACTS 

• VGV 

•TERROR 

• LUNl 

GO  TO  400 


CONTINUE 
KAPG=3 
CALL  FIT  ( 


Ki  il6) 


^ IPQWER  , FORCE  *SPEE0 

+ , POWER  *ATF  ,eTF  -,CTF 


f 

• NGR 

GO  TC  400 

• TRACTF  •VGV 

•TERROR 

•LUNl 

CONTINUE 

IF(  lAPG  .EQ-. 

li  GG  TO  300 

CALL  FIT 

4t 

IPQWER 

•FCRCe  , SPEED 

i- 

• POWER  ,ATF  •BTF 

.“CTF 

+ 

• NGR 

•TRACTF  ,VGV  , 

TERROR 

• LUNI 

GO  TC  400 

CONTINUE 

MAPG=4 

CALL  TRAIN  ( 

CQNVl 

• CONV2  •ENGINE  • 

FO 

•ICONVI 

■f 

• ICONV2 

• lENGIN  .ITCASE  • 

ITRAN 

, LOCKUP 

* 

, EFF 

.FORCE  .GR  • 

RPM 

•SPEED 

* 

, SR 

• TORQUE  .TR  • 

NGR 

,PE 

*■ 

,RR 

•TCASE  .TQIND  , 

TRANS 

•IPOWER 

«■ 

, POWER 

CALL  FIT  ( 

• LUM  ,KIII6) 

♦ 

IPOWER 

• FCRCE  .SPEED 

«■ 

•POWER  ,4TF  ,BTF 

• CTF 

♦ 

• NGR 

•TRACTF  .VGV  • 

TERROR 

• LUNl 

TOPSPO  = POWERJ SPEEE* iFOWER»*460./88.l/12. 

NPTS  = lNTI-<  TOPSPD  «*5»*4.  I 

CONTINUE 


»KII16) 


• K1I16) 


>KIII6) 


RETURN 

END 

SUBROUTINE 

ENGINE 

AUTOM  ( 
•lENGlN 

« CONVl 

• ICONVI 

• CQNV  2 

,ICONV2 

, TQIND 

•iTRANS 

• NGR 

• FD 

• RR 

• PE 

•POWER 

• IPOWER 

• RPM 

• TORQUE 

• SR 

<»TR 

• GR 

• EFF 

•SPEED 

•FORCE 

jLUM 

• KIIUI 

36 
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C AUTOMATIC  TRANSMISSECA  WITH  TORQUE  CONVERTER 

C 

c 

• 

C 1 i VARIABLE 

OECLARATICN 

REAL 

CONVl  I2«25) 

REAL 

CONV2  nasi 

REAL 

ENGINE  ( 2«251 

BEAL 

ESMAX 

REAL 

ESMIN 

REAL 

FD  { 21 

INT  EGER 

ICCNVl 

INTEGER 

ICONV2 

INTEGER 

lENGIN 

INTEGER 

IPOWEB 

INTEGER 

EFF 

INTEGER 

FORCE 

INTEGER 

GR 

INTEGER 

RPM 

INTEGER 

SPEED 

INTEGER 

SR 

INTEGER 

TORQUE 

INTEGER 

TR 

INTEGER 

N 

INTEGER 

NG 

INTEGER 

NGR 

REAL 

PE 

REAL 

POWER  12^2011 

REAL 

PI 

REAL 

RPMIN 

.A. 

REAL 

RPMOUT 

• 

REAL 

RR 

REAL 

SPDINC 

REAL 

SRATIC 

REAL 

TF 

REAL 

TORCEN 

REAL 

TOROIN 

REAL 

TQINC 

REAL 

TRANS  (i.*25l 

REAL 

TRATIC 

C 2.  ALGORITHM 

DC  16(a  NG 

=1 ,NGR 

CO  150 

N=lf  201 

ESMIN^ENGINEXRI’M,!) 

ESHAX=ENGINE<PPM,TENGINI 

RPMOUT=(  FGWER|SPEECtN>/2«0/3.L«159265/RR) 

♦ 

*FDIGR>*TRANSieR»NG» 

110  CONTINUE 

RPMl N= (ESR4N«ESMAX>/2.0 

SRATlQ=RPMeUT/RPMlN 

IFiSRATIO  *LE.  CCNV 1( SR«IC0NV1I ) GO  TO  120 

SRATiO=CCNVl(SR.ICCNVl» 

120 

CONTINUE 
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CALL  LINEAR  i 

♦ CONVl  .SCONVl  ,SR  ,RPM  , SR  AT  10 

.SPOINO  \ 

TQRQIN=TQI&D*(  RPMN/SPCINDI*P2.0 
CALL  LINEAR  I 

*■  ENGINE  «4ENGIN  ,RPM  , TORQUE  iRPMlN 

*•  .TOROEN  I 

IF(  lESHAX^ESPlN)  .LE.  1.0/60.0  i GO  TO  130 
C EXIT  LCGP 

IF  i TOR  GEN  4EC.  TCRQINl  GO  TO  130 
C EXIT  LCaP 

IFITQRCEN  ^*LT.  TORQINl  ESMAX=RPMaN 
IFiTORCEN  »GT.  TCRCINI  ESMINjcRPHTN 
GO  TO  110 

130  continue 

Pl=PE«'TCRCINVi00.0 

I FI  ABSI  TCRC«1N-T0RCENI  -GT.  ABS4  PH  > GO  TO  140 
CALL  L INEAP  ( 

*■  C0NV2  . %<iCCNV2  ,SR  ,TR  ,SRATIQ 

♦ .TRATtO  1 

TF=TGRCIN#TRAT10<'TRANS<GR,N6» 

+ *TRANSi EFf^NGIPFDlGR»*FDI EFFI/RR 

lFIPQWERi  FflRCE»NI  .LT  . TFF  POW  ERi  FORCE,  N»  =TF 
LFIIPCWER  .JLT.  Nl  IPOkER=N 
140  continue 

15  a continue 

160  CONTINUE 

c 3. diagnostic  output 

IF(  KII16  .NE.  1 » GOTO  300 
WRITE! LUNl. 1^01 
190  FORMATIlHl ,6H$AUT0R,/ ) 

WRITE! LUN1,200J 
200  FORMAT!  1H0,8HCONV1  =1 

WRITE!  LUNl, 210  > 1 1 CCNVK  I ,J  UI=fiPM,SRI  • J=1 , ICUNV  1 > 

210  FORMAT{i0X,E14.8,2X,  E14. 8 ,2  X , E14. 8,2Xr  E14.  8»  2X,  El  4 .8,  2Xi  E 14.  8 I 

WRITE!  LUNl  ,2201 
22  0 FOHMATIi  H0 ,8HCONV2  =8 

WRITE!  LUNl,2i0l  U CC  N V2i!  i ,U  > ,1  =TR,SR  N,  , IC0NV2  > 

WRITE!  LUNl  ,230»  EFF 
230  FORMAT!  1H0,8HEFF  =,»I4I 

WRITE!  LUNl  ,2408 
240  F0RMAT(lHa,8HENGIN£  = 8 

WRITE! LUNl, 21 01  ! ! ENG IfeE! 1, J 8 , I=R PM, TORQU E 8, J=1 , lENGlNl 
WRITE!  LUNl  ,245  8 FO ! EFF -AtFOi! GP 8 
245  FORMAT  !iH0,8HFD  =., B14 .8, 2 X,  El 4.8  8 

WRITE!  LUNl  ,2501  FORCE  ,6R,  ICONVl ,TC0NV2,  IEN6IN,  IPOWER,NGR 
250  FORMAT  .!1H0,8HFORCE  =‘i,S4,/» 

<•  1H0,8HGR  =-»^4,/.,l  P2,8HIC0NV1  ^,14*/, 

+ 1H0,8HICONV2  =r«4,/i,lH0,8HIENGlN  14^/, 

1H0,8HI  POWER  =,l4r/*,l  F2,8HNGR  *,I48 
WRITE! LUNl ,260 8 
260  FCRMAT!iH0,8HPOWER  =» 
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WRITE(LUNi,2i0)  U PCM ER( »• I=S P EEO« FORCE ) 1 , 1 POM ER) 
WRI  TE!  LUNl  ,2701  RR 
27P  FukMAT(lHa,8HRR  =,6iA.8t 

WRITE! LUNl, 280)  RPM, SPEED, SR, TORQCE.TR 
280  FORMAT  (1H0,8HRPM  = ,IA* /,  lh0, 8HSPEED 

♦ 1H0,BHSR  1F2#8HTCRGUE  =,IA»/, 

*■  IH3,8HTR  =,I4I 

WRI TE( LUNi  ,290) 

29tf  FORMAT  UH0  ,8HTRANS  =1 

MRTTEiLUNl  ,210)  U TRAKSI I ,0 k , I=GR , EFF P , J«I ,NGR ) 

WRITE! LUNI, 310)  TGINO 
il0  FORMAT  (1H0,8HTQINC  »«6iA«81 

30T  CONTINUE 

RETURN 
END 

SUBROUTINE  FIT( 

♦ I POMER  , FORCE  , SPEEfi 

♦ , POMER  ,ATF  ,eTF  ,CTF  ,NGR  ,TRACTF 

♦ ,VGV  ,IERROR  ,LUNi  ,KlIl6l 


— — ^ ^ 
VARIABLE  DECLARATIGNS 


DIMENSION 

A 

{3,A) 

DIMENSION 

ATF 

I20k 

OIMENS  ION 

BTF 

(20) 

CIMENS  ION 

CTF 

(20) 

DIMENSION 

POMER 

(2  ,003*- 

DIMENSION 

TRACTF(20,5  ) 

OIMENS  ION 

VGV 

(20,5) 

DIMENSION 

X 

( 3 I 

INTEGER 

BEGIN 

INTEGER 

FORCE 

INTEGER 

END 

INTEGER 

RIGHT 

INTEGER 

SPEEC 

LOGICAL 

MEMBER 

REAL 

LOWER 

REAL 

MEDIAN 

INITIALIZE  PROGRAM  INXICIES 


PCT  = 2.0 
NGk  = l 
IERRQR=0 
FMAX=0, 

VMAX=0  . 

00  2002  I=l,iPOWER 
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IF(  POWER!  FORCE*  I»  »GT,  FMAXI  fHAX=PQ«ER.IFQRCE  ,H 
IF!  POWERI SPEED,IJ  ^GT.  VMAXI  VMAX=POWEftC SPEED, I» 

2W00  CONTINUE 
C 

C — — — — r 

C BEGIN  BY  FITTING  A CUACRATIC  TO  TFE  FIRST  THREE  POINTS 
C 
C 

DO  2105  N=l,lPOWER 

IF(  power:  FORCE,  M .EC.  POWER!  FCRCE,'N+1  M GO  TO  2100 
LEFT=N 

RIGHT=LEFT+2 
NEXT=RlGHT*il 
8EG1N=LEFT 
EN0=RIGHT 
GO  TO  2110 

2100  ATFiNGRl  = POWER!  fORM:*NUl 
BTF4NGRI=0. 

CTF1NGRI=0. 

LEFT=1 

RIGHT=N+i 

IF!  POWERI  FORCE,  N+.1  I .NE.  POWERI  FORCE,  N+B  A I GO  TO  2172 
2105  CONTINUE 
2110  CONTINUE 

00  2121  iR=l,a 
DO  2120  IC=1,A 
A! IR,ICi=0. 


2120  CONTINUE 

2121  CONTINUE 

2122  CONTINUE 
C 

C -----  - - - — -.p-— - — 

C BUILD  THE  "A«  MATRIX  FOR  THE  LEAST  SQUARES  FIT  PROCEDURE 


c 

CO  2140  N=BEGIN,6N0 

IFIN-1  ,LT.  1*  GO  TO  2130 
C 

Q — — — — — — — — 

C CHECK  WHETHER  TWO  ADJACENT  PCINTS  HAVE  THE  SAME  VALUE  OF 
C SPEED  AS  MIGHT  OCCUR  AI  A GEAR  SHIFT  POINT. 

C ------  t— 

C 

iFIPOWER! SPEEC,N»  .EQ.  P0WER4SPE£D*N- U 
+ .ANC.  4fFT  .LE.  N-3A  GO  TO  2168 

IF!  POWER(SPEEC,NI  .EQ.  POWERI  SPEED,  N-1 1 
^ .ANC4  LEFT  .EQ.  N-i2A  GO  TO  2165 

IFIiPGWER(SPE£0,NI  .EQ.  POWERISPEED, N>1» 

»■  ,JNO.  LEFT  4E0.  N-IF  GO  TO  2174 

2130  A!3,4i=A!  3,4H(P0WEBIF0RCE,N» 

A 12,41  =AI2,4}ifPOWERIFORCE,N»*IPOWER4SPEEO,NI/17«6l 
A!  1,4»=A!  1,4I*P0WER4F0RCE,NA*4  POWERI  SPEED,  N» /17.61*'*  2 


213 


Clf^OOO  oooo<^  Oof'.  o<^o 


R-2^5a,  VOLUKE  ! 

APPENDIX  A - listing  OP  PROGRAM  NRMM 


PAGE  A-41 


21A0 


2165 


2168 

217k) 


A<3,3) =A<  3,3  )«1. 

AI2,3I=A(  2,3  l'AlPCWEP<SPEEC,Nli/17.6) 
A(I,3I  = A{1,3  »44’PQUEM{SPEE0,NI/17.6}«At2 
aU,2»=AI  l,2M(PCtfEPiSPEEC»N»/17.&»#'*3 
All  ,I)=A(  1,1  liflPGWER(SPEEC,NI/17.6>*»A 
CONTINUE 
A(  2,  l>i-AU,2  ) 

A(2,2)=A( i,3» 

A(3,lt  =A(  1 ,3)< 

A(3,2)=A(2,3) 


— — — »«r*  — r-,"-  - — — — — 

CALL  SUBROUTINE  TO  INVERT  -A"  MATRIX  AND  SOLVE  FOR 
THE  COEFFICIENTS  TC  TFS  FITTED  QUADRATIC 


CALL  SOLVER  {A,XA 
X42I=X<2)  /17.6 
XI  1»=X(  1 1/17.6/JJ.6 


CHECK  NEXT  POINT  AGAINST  THE  MAXIMUM  NUNEER  IN  ARRAY 

~~~ 

IFiRlGHT*-!  .GT.  IPCWERl  GC  TO  2i70 

MEDIAN=X(3MX<  2 l«FQWER{  SPEEC«NEXT  l>XU  I^POWERIS  PEED, NEXT  l»*2 

CIFFEfi*PCT*MECIAN/100-0 

LOWER=MEOIAN-CiFGBR 

LPPEHsMEDIAN*CI'«ER 

MEMBERS. TRUE. 

IFIPQWERI  FORCE, KaXTl  .LT.  LOWERS  MEMBER^. FALSE. 

IFIPOHERC  FORCE,  MXT  > .GT.  UPPERN  MEM0ER=.  FALSE. 

If (.NOT.  MEMBER*  CC  TO  2170 
RIGHT=RIGHT«-1 
NEXT=RIGHT*1 
8EGIN=RIGHT 
ENC=R1GHT 
GO  TO  2122 


STRAIGHT  LINE  GEAR 


X<1)=0. 

RIGHT  = RIGHT-1 

X (21 =<PQWERC/fiRCE, RIGHT* -POtaERIFORCE.LEFTI*/ 

( POWER!  S«£EC,RIGHT»-P0H£R(SPEEC,LEFT)I 
X(3  l = POWER(FCf»CE,LE FT >-X<2*.*POWeR< SPEED,  LEFT  I 
GO  TO  217t 
RIGHT=R16HT-1 
CONTINUE 
ATP  (NGR*=X(  3 I 
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BTFiNGRI=X(2l 
CTF  (NGR)=X(It 

2172  VGV  tNGR.n  =PQ8EftT  S«EEC,  LEFT! 

VGV<NGR,5>  =PGWER<S€E£E»RIGHT) 

DO  2176  L=2,A 

VGV<NGR,LI=VGVI  ♦ <VG»/4NCR^5»  VGVI  NCR,  II 1/4. 

2176  CONTINUE 

DO  2177  L=l,5 

TRACTFCNGR,LI=ATfi|  KGPI  ♦ BTFiNGRl^  ♦ VGViNGRfLI  ♦ 

* CTE4NGRI  «•  VGV(,NGR,LI  * VGV.(NGR,LI 

2177  continue 

IF(CTF(NGR»  .EQ.  0,.T  GO  TC  217  3 

CALL  APPRQXl 

POWER  .FORCE  .SPEED  .NGP  -.LEFT 

.RIGHT  .ATF  .,BTF  ,CTF  ^lERRCR 

♦ ,FMAX  ,VMAX  ,LUN1  I 

IF4CTFiNGRi  .EC.  0-A  GC  TC  2172 
GO  TO  217  3 
C 


C BACKUP  TRO  POINTS  FCR  ARTIFICIAL  GEAR  AT  GAP  IN  TRACTIVE  FORCE, 

C •— — — —IP*. 


c 

2174  RIGHT  =R!GHT-2 

2173  IFIN-l  .LT.  1)  GO  TC  2175 

IF(LEFT  .LE.  N-2T  Gfl  TC  2175 
C 

C IF  A GAP  IN  THE  TRACTIVE  FORCE  DATA  OCCURS  SUCH  AS  AT  THE 

C SHIFT  POINT  OF  A MANUA4  TRANSMISSION,  INSERT  AN  ARTIFICIAL 

C GEAR  WFICH  IS  A VERTICAL  LINE  HAVING  ZERO  COEFFICIENTS  AND 
C MN,  MD,  MX  SPEED  VALUES  EQUAL  TO  THE  VALUE  AT  THE  GAP.  SET 

C THE  MN,  MX  TRACTIVE  FCPCE  VALUES  EQUAL  TO  THE  END  POINTS  OF 

C THE  DISCONTINUITY,,  ANC  THE  MO  TRACTIVE  FORCE  EQUAL  TO  THE 

C AVEtsAGE  OF  THE  MN,  MX  VALUES.  PROCEED  TO  THE  NEXT  REAL  GEAR. 

C ---  - 

c 

.F(  FOWERISPEEC.M  ,NE.  POWERlSPEECrN-l I 1 GO  TO  2175 
RIGHT=RIGHT*-1 
ATF(NGft)-0. 

BTF( NGRI=0, 

CTFtNGRI =0. 

CO  2178  L=l,5 

yGV{NGR,Ll=PCVER<SPEED,RlGHTI 
2176  CONTINUE 

TRACTFiNGRrl»=PCMER(FORCE,RIGHT-l) 

TRACTF{NGR,5l  = PC*lEfi(FOPCE,Rl6HTIi 
CO  2179  L=2,4 

TRACTFINGP.L  L«TRACTFINGR,L-IK  - 
> ' ITRACTFI  NGR.l  » - TRAClFlNGR.Si J / 4, 

2179  CONTINUE 

2175  iF(RIGHT*2  .GT,  iPCMBRI  GC  TO  2180 
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NGk=NGR*l 
LEFT=R1GHT 
RIGHT=LEFT4-2 
NEXTsRIGHTH 
BE6IN=LEFT 
ENO^RIGhT 
GO  TO  2U0 
2180  CONTINLE 
C 

C -—-1  — »«*«»" 

C TEST  FINAL  POINT^  FIT  STRAIGFT  LINE  If  FINAL 

C POINT  LIES  OUTSIDE  CF  )PftEV«OUS  GEAR. 

C 

1F(RIGFT  .GE.  IPCWERI  GO  TO  il92 
NGR=NGR+1 
LEFT=RIGHT 
RIGFT=LEFT+1 
8EGIN=LEFT 
END=RIGhT 
X(1 1=0. 

X(2I  = I POMERIFQRCE*  £«l€l >POMERI FORCE*  BEGIN))/ 

* (POWERISPEEC,  EiiOI-FOMERI SPEEOr BEGIN M 

X(3  ) = POWER(FORCE*EM3)>Xi2)*POUER.ISPEEC*  END) 

GO  TO  2170 
2190  CONTINUE 

C 

C EXIT  ROUTINE 

C 

IF(  KI116  .NE.  1 I GCTG  2300 

C ' 

C DIAGNOSTIC  OUTPUT 

C 

WRITEdUNl  ,2195) 

,;195  F0RMATaHl,4HtFTT,/) 

RRITE(LUN1,2200) 

2200  FORMAT!  1 H0  ,8HATF  =) 

WRITEI LUNI  ,22101  I ATFI NG) .NG^l, NGR ) 

2210  FORMAT(10X,El4.8,2X,Ei«.8,2X,E14. 8,2X» EI4. 8 ,2X  ,E14.8,2X ,E14.8A 

NRITEILUN1,2220I 
222  0 FORMAT(1H0,8HBTF  =) 

WRITE!  LUNI, 2210)  ( BTF<<  NGI  ,NG=1,  NCR  ) 

WRITEILUNI  ,22401 
2240  FORMAT (1H0,8HCTF  =) 

WRITE  (LUNI  ,2210)  (CTFINGI  ,NG=  1,NGR) 

WRI  TE(  LUNI  ,2260)  FORCE 
WRITE! LUN1,2250)  lERRCfl 
225«  FORMAT(IH0,8HIERRCR  =,.14) 

2260  fORMATIlWI  ,8HFORCE  =,f4) 

WRITE!  LUNI  ,2270)  I POWER 
2270  FORMAT  {iH0,8HIPOWER  =.,14) 

WRITE!  LUNI  ,2280)  NCR 
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22  8 0 FORMAT  (1H0,8HNGR  =,4*41 
WRITEi  LUNl  ,232  0» 

2320  FORMAT (1H0,8HPCWER  =J 

WRITE  UUNl  ,22101  ( (POWfiRIL  , N)  2 l>tN=l^I  POWER) 
WRI ?E< LUN1,2340J  SPEEC 
2340  FORMAT  (1H0 ,8HSPEEC  = ,J4) 

WRITE! LUN1,2350) 

2350  FORMAT  !lH0,8HTRACTf  =1 

WRI  TE!  LUNl  ,2210)  ( ( TR^0TF(N6,L) , b=l,  5),NC=  1,  NCR) 
WRITE! LUNl, 23701 
2370  FORMAT<1H0 ,8HVGV  =1 

WRITE!  LUNl, 2210)  I ! VGVtflNG.L  i ,L=l  ,5 1,  NG=l4NGRi 
2300  CONTINUE 
RETURN 
END 

SUBROUTINE  SOLVER  !A,Al 
C 

C MATRIX  INVERSION  SUBRCWIINE 

C — ■n-*  f ^ ^ 

c 

C 

c VARIABLE  OECLARATICNS 

C 

c 

CIMENSION  A!  3,41 
DIMENSION  B(3,4) 

DIMENSION  X(3I 
INTEGER  COLUMN 
INTEGER  ROW 
C 


10 

20 

C 

C 

c 

c 

c 


3 id 


c 

r 

c 


DO  20  Raw=l,3 

CO  10  COLUMN=i , 4 

B(  ROW,  COLUMN  l = A!RCW,COLUMN» 

CONTINUE 

CONTINUE 

DO  50  KPlVOT=l  ,2 

NORMALIZE  W.R.T.  PIVOTAL  ELEMENT 

NPI VOT=5-KPIVOT 
DO  30  KCUNT=1,NFIVCI 
COLUMN=5-KOUNT 

B!  KPIVQT,  COLUMN  148!  KPl VET, CCLUMNI 

✓B(KPIV0T,KPIV0T» 

CONTINUE 

KELIM=KPiVOTi-l 

PERFORM  EHMINATICIv  ON  ROWS  OF  MATRIX  A 
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C 

C 


A0 

45 

50 

C 

C 

c 

c 

c 

c 


60 

70 

C 


c 

G 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DO  45  RCrt=KELlM,3 

CO  4 0 CQLUMN=KEtW<*4 

6 (ROW, COLUMN  XBIROWf  COLUMN  I 

* -f  B{  RGU,KPIVOTI-/fiiKPtIVQT,KPIVQTl  I 

*■  «B4K  PIVOT, COLUHNI 

CONT INUE 
CONTINUE 
CONTINLE 

PERFORM  BACK  SUBSTITUTBCN  TO  CBTAIN 
COEFFICIENTS  XU  I#  X<2lf  X4  3 » 


X(3»=B(3,<t»/Bn,3l 
CO  70  KBACK=2,3 
IC0EFF=4-KBACK 
KTEPMS=ICOEFFU 
0=0  . 

DO  60  C0LUMN=KTERMS»3 

C=Qt-Bl  ICQEFF,CQiyNNt*X<COLUMNI 
CONTINUE 

X(ICuEFF)  = (B(  ICOEFf^Al'QUBdCCEFfvICOEFF) 

CONTINLE 

RETURN 

END 

SUBROUTINE  APPROX 


♦ (POWER 

.FORCE 

, SPEI0 

,NGP 

,NLEFT  ,NRiGHT 

^ ,ATF 

,BTF 

rCTfi 

,iERROR 

fFMAX 

*■  ,VMAX 

,LUN1  ) 

COMPARISUN  OF  A SECCNC  CBCER  POLYNOMIAL  CURVE 
FITTED  TO  the  POWERTRA.iN  DATA  ANO  A STRAIGHT 
LINE  FITTED  EXACTLY  BETWEEN  TWG  ADJACENT  POINTS. 


1.  VARIABLE  OECLARATICNS 


DIMENSION  ATF  1201 

DIMENSION  BTF  U0I 

DIMENSION  CTF  i 2fli 

DIMENSION  POWER  (, 2*201) 
REAL  LINE0  IJi0) 

real  LlNEl  (,1201 

INTEGER  FORCE 
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INTEGER  SPEED 

REAL  QUAO0 

REAL  QUADl 

REAL  QUAD2 

real  XCOORD  <2M» 

REAL  YCOORD  12011 


2,  ALGORITHM 


DO  200  N-NLEFT,NRI6HT 

XCQORDI NI=PCMER(SPEEO,N} 

VCOORCI N) =PGWERIRQRCE,N4 
CONTINUE 
QUAC0=ATF^  NGRI 
QUAC1=8TFI NGRi 
CUAC2=CTFI  NGRL 
CALL  LINES! 

NLEFT  .NRIGHT  jXCQCRO  .YCCCRD  ,LINE0  tLiNEll 
CALL  RES  lout 

*•  NLEFT  .NRIGHT  , XCGCRC  .YCOORD  *LINE0  .LINE! 

* ,OUAO0  , QUADl  ,GUAt;2  .TERROR  .FHAX 
,,VMAX  .LUNll 

ATF  (NGRUQUAO0 
BTFtNGRUQUACl 
CTF<NGR>=QUAD2 
CONTINUE 
RETURN 

END 

SUBROUTINE  LINES 

♦ t NLEFT  , NRIGHT  .ACCORD  .YCCCRO  ,L1NE0  .LlNEll 
EXACT  LINEAR  FIT  BETWEEN  TWO  ADJACENT  POINTS 


1.  VARIABLE  DECLARATIONS 


REAL  LINE0  (1201 
REAL  LINEl  112.01 
INTEGER  SEG 
INTEGER  SEGA 
INTEGER  SEGb 
REAL  XCOORD  (20U 
REAL  YCOORD  1201 A 


C 

C 
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2.  ALGORITHM 


SEGA=NLEFTH 

SEGE=NRIGHT 

00  200  SEG=SEGA,SE(CB 

LINE1(SEGI  = C YCGCR0(SEG»-YC00RC<S£.G-'1  > » 

/(XCQORC(SEG)>XCOORO<SEG-UT 

LINE0(SEG>=YCOOPE(SEGI>LiNEliSEG)*XCaOROlSEG) 

CONTINUE 

RETURN 

END 

subroutine  RESIDU 

+ INLEFT  .NRIGHT  .XCOGRO  .YCCGRO  .LINE0  ,LINE1 

* »OUAD0  fOUAOl  »CUAC2  .lERROR  .fHAX 

*■  fVMAX  »LUNi) 


RESiCUAL  BETWEEN  FIRST  ARC  S ECGND  ORCER  POLYNOMIAL  FIT 


1 


VARIABLE  OECLARATiCNS 


REAL 

ERROR 

4120l> 

REAL 

LENPPA 

REAL 

LENPPB 

REAL 

L1NE0 

<122> 

REAL 

LINE! 

luiai 

INTEGER 

SEG 

INTEGER 

1 

INTEGER 

SEGA 

INTEGER 

SEGB 

INTEGER 

SEGl 

INTEGER 

SEG2 

REAL 

CUAO0 

REAL 

QUADl 

REAL 

OUAC2 

REAL 

XCOORO 

I20U 

REAL 

YCOORD 

{2A1A 

ri- 

ALGCR4THM 

A,  FUNCTIONS 
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C 1.  FIRST  ORDER  PetYNOMIAL 

AL1.NE(Z,X  l-LlAE0{Zt4>LlNEllZI*X 
C 2.  SECOND  ORDER  COLYNCMIAL 

QUAOC  XI=QUAO0*QUAOl*X*- QU  AD2PX**2 
C 3.  RESIDUAL 

RESIO{Z,XI=A£SIQUAOfXI-ALINEiZ»X»  ) 

— — — ^S- ♦— 

B.  ClffERENCE  CALCULATION  BETWEEN  QUADRATIC  CURVE 

AND  THE  STRAIGHT  LINE  FITTED  BETWEEN  TWO  ADJACENT  POINTS,. 

ip —s* — ~ 

PCT1=0.05 
PCT2=0.01 
SEGA=NLEFT*1 
SEGB=NRIGHT 
CO  250  SEG=S£GA.tSEGB 


— • — — “n — — — — — — — — p;  — 

FIND  THE  VALUE  CF  X WHERE  THE  DIFFERENCE  BETWEEN 
THE  QUADRATIC  CURVE  AND  THE  STRAIGHT  LINE  VALUES 
OF  Y ARE  A MAXIMUM. 

--  - --  - ------------  — - — - — - 

XP0I:NT=I  LINE14SEGi-QUA01»y|2J*OUAD2l 
IFIXPOINT  .liJ.  XCOCROI  SEG-l>  1..OR. 

<■  XPOINT  XCCGROISEGU  60  TO  230 

CALCULATE  THE  SLOPE  OF  THE  QUACRATIC  AT  XPOINT 


SLOPE=2.P«UAC2*XPOINT  » QUAOl 

— a — — a -SI]  a . —a.  • — — — — — 

CALCULATE  THE  MAXIMUM  DISTANCE  BETWEEN  THE  CURVE  AND 
THE  STRAIGHT  LINE  IF  THE  MAXIMUM  OCCURS  BETWEEN 
THE  END  POINTS  CF  THE  LINE. 

ERRCR(SECA^=BeSICISEG,XPOINTl 
GO  TO  2A0 

0 LeNPPAsRESlCISEG^XCCOROCSEG-lH* 

LENPPB=RESlC«SEC‘,XCOORDIS£€Al 


— a— — ——a  a,f.'aa>4p,^^aj>a'||  — ^^at^aaaa^— ,a_i«aa  — — — a — aa  — — aaa 

CALCULATE  DIFFERENCS  BETWEEN  CURVE  AND  STRAIGHT  LINE 
IF  THE  MAXIMUM  OCCURS  AT  THE  END  POINTS  OF  THE  LINE. 


ERR0R(SECI=AMAX1ILENPPA,LENPP6J 
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TFI  ERRCR(SEGA  .EC.  LENPPAI  XPOINT  = XCOOROi SEG-1 ) 

IF ( ERROR  <SE.(il-  .EQ,  LENPP8J  XPOINT=lCCOORD{SEGI 
SLOPE=2.  ♦GUAD2*XPQINT  ♦ OUAOl 
C 
C 

C CALCULATE  THE  NCRMAkUEO  SLOPE 

C FOR  THE  ENTIRE  POWESTRAIN  CURVE 

C 

2AkJ  SLOPEN=AeS<SLaPE*VMAX/F,MAXF 

C 

C --- 

C CHECK  WHETHER  CURVE  EXTENDS  BEVOND  HAKIMUM  TRACTIVE  FORCE 

C IF  SO,  FIT  STRAIGHT  LINE  EETWEEN  POINTS  AT  WHICH  THIS  OCCURS. 

C ---  — — ‘4  — — 

C 


QHAX=AMAX1  (CWACIXPClNTl.,GUAD(XCOORCiSEG-l  n , 

*■  CWikOiXCOOROI  SEGFIF 

IFIQMAX  .GT..  FMAXI  GO  TO  260 

C 

C CALCULATE  ALLOWABLE  ERROR  EETWEEN  QUADRATIC 

C CURVE  AND  STRAIGHT  L^INE  WHICH  INCLUDES  VARIABLE 

C ERRCR  EASED  ON  THE  i*0RFALI2ED  SLOPE. 

c 

ALLOWS  I ( CUAC4XCOOR  CIS  EG>1>>  * QUAOl  XCOOROI  SEGI  > */2  . ># 

♦ PCTl  y*  SLCPEN*PCT2*QOADI1<PQINT» 

I F( ALLOW  .GT.  ERHORISEGII  CO  TO  250 

SEG1=SEG  H I 
SEG2SSEG  2 

WRITE(LUM,2200  1 SEG1,S  EG,  SEG2,  SEGl 
lERRORsl 

250  CONTINUE 

GO  TO  270 

260  OUAO2S0. 

CUAOlsLINEl ISE6) 

QUAO0=LINE04SEG) 

NRIGHT=SEG 

2200  FORMATI  iX.#J2HCUPVE  FIT  ERROR  EXCEEDED  BETWEEN, IX, 

♦ 12HOATA  POINTSS,2I3r/# 

^ 8X,38HINSERT  DATA  POINT  BETWEEN  DATA  POINTS:  ,2I3i 

270  CONTINUE 

RETURN 

end 

SUBROUTINE  LINEAR  d ARRAY,  lARRAY,  INC, MDEP,X  ,y  I- 

C 

DIMENSION  ARRAY! 2, 50 » 

C 

C — — 

C LINEAR  INTERPOLATICN  SWBRCOTINE 
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C 

112 


120 


150 


K0 

C 

15  0 


IF<  ARRAYlINDfll  .LE.  JiRRAY4  INC,  lARRAYl-  I GO  TO  110 
THE  VALUES  IN  ARRAVfr‘I,JI  ARE  NOT  ASCENDING 
STOP  A 
CON  TIN  LE 

IF(  X .GE.  ARRAY!  I NO,. 1-1  » GO  TO  120 
Y=0.0 
GO  TO  150 
CONTINUE 

IF!  X .LE-  ARRAYl  IND,  lARRAYl  I GO  TO  130 
Y=0.0 
GO  TO  150 
CONTINUE 
NTEPPi  =IARRAY-1 
OG  1A0  N=1,NTEMP1 

IF(  -NOT.  < IX  .iCa.  ARRAYIINO,N)  T -AND. 

*■  (X  -LE.  ARRAY!  I NO*  Ml  A)  I ) 60  TO  1A0 

Y=ARRAYI  MCEP,NI<««  ARR AYlM0EP*N4ll>ARRAY{MDEP«N)  1« 

* I X-ARRAY(  INOvAi  I /i  ARRAY!  1N0»N>*1  )>ARRAYI  1ND,NI  I 

GO  TO  15  0 
CONTINUE 

ARRAY  CANNOT  BE  INTfAPLOATEC 
STOP  5 
CONTINLE 
RETURN 
END 

SUBROUTINE  STICK  { 


*■ 

ENGINE 

tIENGIN 

ETHANS 

,NGR 

,fC 

*■ 

,iRR 

iPOWER 

#4P@ii(E  P 

,RPH 

•TORQUE 

* 

,GR 

,EFF 

•SPEED 

•FORCE 

• LUNI 

* ,KII16> 


f'ANUAL  TRANSMISSION  ROUTINE 

Iw  VARIABLE  DECLARATION 


REAL 

ENGINE 

I2A25I 

REAL 

ESMAX 

REAL 

ESWIN 

REAL 

FO 

i 

INTEGER 

lENGI N 

INTEGER 

iPOWEP 

INT  EGER 

EFF 

INTEGER 

FORCE 

INTEGER 

GR 

INTEGER 

RPM 

INTEGER 

SPEED 

INTEGER 

TORQUE 

INTEGER 

N 

INTEGER 

NG 

INTEGER 

NGR 

REAL 

POWER 

(2*i20i 
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REAL  RPPEN 

REAL  RR 

REAL  TF 

REAL  TORQEA 

REAL  TRANS  U#25) 

a 

C 2.  ALGCRITHM 

ESMIN=ENGINEIRPR,1* 

ESMAX=ENGINE<RPR, lEAGlNI 
DC  120  NG=1 ,NGR 
CO  110  N=1.2ei 

RPNEN==(  PCWER<A5PEE0,N)/2.tfy3wlA159265/RR  I* 

* FO:  GRt  *IRAKS{GR*NGI 
IFIRPMEN  .LT,  ESMNI  GO  TO  110 

IFIRPMEN  «4iT.  ESHAXI  GO  TO  120 
C EXIT  LC8P  11.0 

CALL  L iKEAR< ENGINE* lENGlN. RPH.TORQUEtRPHENtTORQEN  I 
TF^TORCEN*TftANiS(C-R«NG»*TRANS4EFF*NGI 
t *FD<fiRltFO<EFF»/RR 

IFIPORERI FQRCEtN)  «LT  . TFl  POWER4FORCE,N)=TF 
IFdPORER  Wl^T.  N)  IPOWEP^N 
lly  CONTINUE 

120  CONTINUE 

CC  300  N=2,IPOWER 
NN=IPOWER  - N * I 
IF4  POWER!  FCRCE.NM  .EQ.  0.1 

♦ POWER!  FORCE,  NM  * PCWER4  FCRCE*NN *1 » 

30t'  CONTINUE 

C 

C 3.  DIAGNOSTIC  OUTPUT 

iF  IKI  116  .NE.  IF  GOTC  210 
WRITE!  LUNi,100l 
100  FORMAT!  1H1,6H$STICK,/ I 
WRITE!  LUNl  *1151  EFF 
115  FORMATnH0,8HEFF  =,141 

WRITE!  LUNl,125l 
125  FORMAT!1H0,8FENGINE  =1 

WkITE(LUN1 ,130}  4!  ENG'UE!  J*J),i=RPM*TaRQUE},J  = l,iENGIN} 

130  FORMAT110X,64E14.8,2XI* 

WRI  TE!LUN1  ,1401  (FD!  1}#1=1,2  1 
140  FuRMAT41H0f8HFO  = ,2IE 14. e,2X I ) 

WRITEI  LUNl  ,150}  FCRCE.,.f R,  lENGIN,  I FOWER,N.GR 
15U  FORMATIIHW.BHFORCE  =W*4, /,  1 h0 , 8HGR  ^,14.,/, 


* 1H0,SHIENG!N 

=«i4,/,lF0,8HIPOWER  ^,14*/« 

1-  iH0,8HNGR 

WRITEILUNI ,160) 

= ,141 

160 

FuRMAT41H0,8HPOWER 

= ) 

. WRITE!  LUNi  ,130)  4!  PCWER!  1,'J)  ,I=SPE£C« FORCE » ,J=  1, 1 POWER ) 
WRITE!  LUNl  ,1  70)  RPH 

170 

FORMAT !1H0,8HRPM 
WRlTEiLUNl  ,130)  RR 

= ,141 

180 

FORMAT!1H0,8HRR 

=,114.8) 
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WRITE!  LUNi  ,190»  SPEED 
19£;  FORMAT!  1H0,8HSPEED  =„iAl 

WRITE(LUN1  ,200) 

200  FORMAT(1H0,8HTRANS  >) 

WRITE ( LUNI ,130)  ( ( TRAASl 1 «J) • I«GR , EFFI^ , N&R) 
210  CONTINUE 
RETURN 
END 

SUBROUTINE  TRAIN  ( 


4- 

CON  VI 

,CONV2 

•ENGINE 

.FC 

flCONVl 

♦ 

, ICONV2 

,iENGiN 

#4TCASE 

, ITRAN 

, LOCKUP 

,eff 

, FORCE 

#Gfi 

• RPM 

, SPEED 

+ 

,SR 

, TORQUE 

0TR 

• NGR 

,PE 

f 

,RR 

,tcase 

%TQ1N0 

, TRANS 

,1P0WER 

4- 

, POWER 

rLUNl 

WlKIIlAt 

CONSTRUCTION  OF  THE  VEHICLE 
TRACTIVE  EFFORT  .VERStiS,  SPEED  CURVE 
FROM  POWER  TRAIN  DATA 


1.  VARIABLE  DECLARATIGW 


REAL 

CONVl 

(2^25  i 

RE4*L 

CONV2 

424125) 

REAL 

ENGINE 

12^25) 

REAL 

FO 

i,2i 

INTEGER 

I CONVl 

INTEGER 

I CON V 2 

INTEGER 

lENGI  N 

INTEGER 

IPOWER 

INTEGER 

ITCASt 

INTEGER 

LOCKUP 

INTEGER 

EFF 

INTEGER 

FORCE 

INTEGER 

GR 

INTEGER 

RPM 

I NT  EGER 

SPEED 

INTEGER 

SR 

INTEGER 

TORQUE 

I NT  EGER 

TR 

INTEGER 

N 

INT EGER 

NGR 

REAL 

PE 

REAL 

POWER 

(2#201} 

REAL 

RR 

REAL 

TCASE 

( il 

REAL 

TQIND 

REAL 

TRANS 

( 2tfl25) 

C 

C 2.  ALGORITHM 

IPOWER=0 
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C 

C 

c 

c 


Zkjc  0 

c 

c 

c 


20A0 


2050 

C 

c 


150 
20  0 
210 
220 


230 

2A0 


245 


DG  2010  N=1 ,201 

FOWERISPEED,M  = FtCAT(N-ll»0.5.*18  8.-/6  0..»*12.0 
FOMERIFORCE,N>=0^0 
CONTINUE 

AOJLST  TRANSPISSJOK  INPUT  FOR  ENGINE 
TO  TRANSMISSION  TRAA5FER  CASE 


IF!  ITCASE  -EC.  0 I 6C  TO  2021 
CO  2 02  0 N=l,lEN4iN 

ENGINE1RPH,N»=ENGINE(RPH,NI/TCASE<  GR) 

ENGINE(TORQUE,NI4ENG>INEITORCUEwNI*TCASEI  GR>*TCASEIEFFI 
CONTINUE 
CONTINUE 


CHOOSE  TRANSMISSION  TYPE 

IF(  ITRAN  .EC,  fc  I 60  TO  2040 
CALL  AUTOM  ( 


ENGINE 

,lEKfi4N 

,C0NV1  , 

ICONVI 

,CONV2 

>,1CQNV2 

• TQIM} 

• TRANS  , 

NOR 

.FD 

♦ 

,RR 

»PE 

.POWER  • 

(POWER 

,PPH 

4- 

.TORQUE 

»SR 

TR  .GR 

»EFF 

♦ 

.SPEED 

,FCFCE 

• LUNl 

KTIlGi 

IF!  LOCKUP  . 

EC-  A 1 GO 

TO  2050 

CONTINUE 

CALL  STICK  < 

«■ 

ENGINE 

« lENGIN 

•TRANS 

,N6R 

• FO 

*■ 

,RR 

, ROWER 

•IFOWER 

,RPM 

•TORQUE 

* 

, GR 

,EFF 

•SPEED 

• FORCE 

• LUNl 

«-  ,K1I16I 

CONTINUE 


3.  DIAGNOSTIC  OUTPUT 

IF(  Kl  116  .NE.  1 I GOTO  300 

MHITEI  LUNl  ,1901 

FORMAT  UHl,6hATRAIN,/ I 

NRITEI LUNl, 2001 

FORMAT  (1H0,8HCONV1  =I 

hPITEI LUNl  ,2101  n CCNVll I.JI ,I=RPM,SR} •J  = l , ICONVl 1 
FORMAT! 10X,E14.8r2X,E 14.8,2X,E14.8,2X,E14«8,2X«E14.8,2X,E14. 81 
WRI  TE(LUNl,220l 
FORMAT(1H0,8HCONV2  =1 

WRITE! LUNl ,2 101  ( ( CON VJI I , J « , I=TR,SR I , I CONV2 I 

WRITE! LUNl, 2301  EFF 

FORMAT  11H0,8HEFF  =,i4l 

WRITE!  LUNl  ,2401 

FORMAT!1H0,8HEN6INE  =1 

WRITE!  LUNl  ,2101  I ! ENG  INE<  I • J I , I=RPN,TORQUE  1,  J = 1 , 1 ENGIN ) 

WR!  TE!  LUNl  ,245  I FD(  EFf  *>FC(  GPl 
FORMAT (1H0,8HFO  =«il4«8, 2X,E14.81 

WRITE! LUNl ,250)  FORCE  ,GR,JCQNV1, iCONV2, l€NGXN, ITCASE, ITRAN, 
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*■  IPCyER#LOCKUP,NGR 

250  FORMAT!  1H0,8HFORCE 

* 1H0,8HGR  =*»J*./,1F2,8HICQNV1  -tlA*/. 

* 1H0,8HICCNV2  =,i4«/»lR0,8HIENGtN  =,  1A»/ t 

*■  1H0»8HITCASE  /*  1H0,8H1TRAN  iA«/* 

* 1H0»8HI  POWER  =%1A*A1H0»8HLOCKUP 

«-  1H0*3HNGR  =•44) 

WRITE! LUNl ,260) 

260  FORMAT! IH0 ,8HP0WER  =1 

WRITEILUNl  ,210)  {(  PCWERI I fJ) • J^SPEEC.RORCE) ,J=1 , IPOUER) 
WRITE(LUN1«270)  RR 
270  FORMAT  aH0,8HRR  =.,§44. 8) 

WRITE!  LUNl t2d0)  RPR, Sf f EB«SR,TORQU E,TR 
28id  FORMAT  <1H0,8HRPM  = rl4,/^  IF0,8HSPEEO  =,  l4w/>t 

+ 1H0,8HSR  =,14.,/»1H0,8HTORQUE  =,I4,A 

*•  1H0,8HTR  =*i4l 

WRITE!  LUNl  ,2  851  I T CAS  Eilk,  I=GP , EFf  ) 

285  fiORMAT!lH0,8HTCASE  =1,24  E14. 8 ,2X1  I 
WRITE!  LUN1,290) 

290  FORMAT!1H0,8HTRANS  =1 

WRITE!  LUNl  ,2 10)  (ITRANS<I,J)  ,I=GR,EFF)«J=1,NGR)- 
WRITE!  LUNl, 310)  TQIND 
310  FORMAT  I1H0  ,8HTQIND  =*il4.8) 

300  CONTINUE 

RETURN 
END 

SUBROUTINE  1117! 

* CID  ,IDIESL  ,GCW  •NAM8LY  ,NCYL  .NENG 

,NGR  ,NVEH  ,CMAX  ,RMX  ..RR  .TRACTF  ) 


ROTATING  MASS  FACTORS 


1 .•  VARIABLE  DECLARATION 
REAL  IDIESL 

REAL  MFl 

REAL  MF2 

REAL  NCYL 

REAL  NENG 

INTEGER  NVEH  ( 24T 

REAL  RMX  I2j3-) 

REAL  TRACTF  (^*0,5) 

2.  mLGCRITHMS 
MFl  = 1.03 
eta  = 0.9 

OO  1710  1=1, NAMELY 

IF! NVEH! I)  .NE.  W)  GO  TO  1710 
MFl  = 1.14 
ETA  = 0.7 
GO  TO  1720 
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1710  CONTINUE 

1720  MF2  = I .00a*mCIESk*CID»**1.68l/NCYL/GCWi*NENG 

00  1730  NG=1 ,NGR 

CR  = TRACTF<tNG#3l«!RR/eTA/QMAX 

RMX{NG>  = MFl  ♦ HF2*GR*GR 
1730  continue 

RETLRN 
END 

SUBROUTINE  TERTL 


TERRAIN  TRANSLATORS 


LABLED  COMMON 

ASSIGNMENTS 

COMMON  /lO/ 

•lECF 

COMMON  /lO/ 

KBUFF 

COMMON  /lO/ 

LUNl 

COMMON  /IQ/ 

LyN2 

COMMON  /IQ/ 

CUN  3 

COMMON  /IQ/ 

-iU:N4 

COMMON  /IQ/ 

iJUN5 

COMMON  /IQ/ 

1U«6 

COMMON  /IQ/ 

LWN7 

COMMON  /IQ/ 

LUN8 

COMMON  /IQ/ 

LUN9 

COMMON  /IQ/ 

■LyN10 

INTEGER 

MO 

COMMON  /INDEX/ 

MO 

INTEGER 

CflMN 

COMMON  /INDEX/ 

CeNN 

I NT  EGER 

ECF 

COMMON  /INDEX/ 

EFf 

INTEGER 

FORCE 

COMMON  /INDEX/ 

FGRCE 

INTEGER 

£R 

COMMON  /INDEX/ 

GR 

COMMON  /INDEX/ 

cevEL 

INTEGER 

«« 

COMMON  /INDEX/ 

MN 

integer 

R6M 

COMMON  /INDEX/ 

RRM 

INT EGER 

S6EEC 

COMMON  /INDEX/ 

SfiEEO 

INTEGER 

SR 

COMMON  /INDEX/ 

SR 

INT EGER 

TR 

COMMON  /INDEX/ 

TR 

INTEGER 

TCRGUE 

COMMON  /INDEX/ 

TORQUE 

INTEGER 

OR 

COMMON  /INDEX/ 

UR 
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INTEGER 

COMFQN  /INDEX/ 
COMMON  /TERRAN/ 
COMiNON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMiMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 


MJ{ 

MX 

AA 

ACTHMS 

AREA 

AHEAC 

C4 

CiST 

EAN6 

ECF 

ELEV 

FNU 

GRADE 

I€BS 

< 3) 

4eST 

I ROAD 

IS 

<9  1 

I5T 

•liUT 

Ni 

fdSU 

CAW 

C6AA 

C6H 

CBL 

CBS 

Cfl« 

gbminw 

COIA 

NWASFG 

RADC 

FGl 

PCIC 

<4  1 

PCURV 

RE 

flit 

TEA 

( 12) 

S 

<9  ) 

SE 

<91 

set 

SyHFF 

TANPHl 

<91 

theta 

<31 

VeURV 

ha 

MQ 

CflHES 

VMALK 

CCLMAX 

GAMMA 

I«VEP 

<SEASN 

^ISUHF 

<4»11) 
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CQMFON 

/SCEN/ 

J&NQW 

COM PON 

/SCEN/ 

Kill 

COMMON 

/SCEN/ 

KI12 

COMMON 

/SCEN/ 

Kil3 

COMMON 

/SCEN/ 

KIU 

COMMON 

/SCEN/ 

KiI5 

COMMON 

/SCEN/ 

K116 

COMMON 

/SCEN/ 

KJ«7 

COMMON 

/SCEN/ 

KiI8 

COMMON 

/SCEN/ 

K|(I9 

COMMON 

/SCEN/ 

K2I1£ 

COMMON 

/SCEN/ 

KHll 

COMMON 

/SCEN/ 

KII12 

COMMON 

/SCEN/ 

K^I13 

COMMON 

/SCEN/ 

KIIIA 

COMMON 

/SCEN/ 

K«15 

COMMON 

/SCEN/ 

KiI16 

COMMON 

/SCEN/ 

Kill? 

COMMON 

/SCEN/ 

KNAP 

COMMON 

/SCEN/ 

KSCEN 

COMMON 

/SCEN/ 

KIPP 

COMMON 

/SCEN/ 

KWEH 

COMMON 

/SCEN/ 

KJVl 

COMMON 

/SCEN/ 

KiV2 

COMMON 

/SCEN/ 

K.M3 

COMMON 

/SCEN/ 

KIV4 

CONMN 

/SCEN/ 

KAV5 

COM  MON 

/SCEN/ 

KiV6 

COMMON 

/SCEN/ 

KJV7 

COMMON 

/SCEN/ 

K4V8 

COMMON 

/SCEN/ 

KJV9 

COMMON 

/SCEN/ 

KlVl  0 

COMMON 

/SCEN/ 

KIVll 

COMMON 

/SCEN/ 

KiiV12 

COMMON 

/SCEN/ 

K4V13 

COMMON 

/SCEN/ 

KfV14 

COMMON 

/SCEN/ 

KIVIS 

COMMON 

/SCEN/ 

KIV16 

COMA'ON 

/SCEN/ 

K1V17 

COMMON 

/SCEN/ 

KlVl  8 

COMMON 

/SCEN/ 

K4JVI9 

COMMON 

/SCEN/ 

K1V2  0 

COMMON 

/SCEN/ 

K IVi  1 

COMMON 

/SCEN/ 

LAC 

INTEGER 

CCTAIL 

COMMON 

/SCEN/ 

LIT  AIL 

COMMON 

/SCEN/ 

MAP 

COMMON 

/SCEN/ 

MA9G 

COMMON 

/SCEN/ 

MBNTM 

COMMON 

/SCEN/ 

MfiPP 

COMiMON 

/SCEN/ 

NSLiP 

COM  MON 

/SCEN/ 

KJPAV 

2D 
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MUX 

FM 

REACT 

RCFQG 

SIARCH 

SSARCM 

SfTYPC 

VeRAKE 

WiSMNV 

VfeilM 

.ZSiNCW 


IFIPAP  .EO.  74)  GO  fO  2010 
IFIMAP  .EQ.  11 »,  fiO  TO  2015 

CLASS  INTERVAL  TERRAiN  TRANSLATOR 


4* 

AA 

CALL  MAP71( 

, ACTRMS  * AREA 

«ELEV 

(GRACE 

(I  EOF 

, lOST 

(IS 

4* 

,IST 

,ITUT  ,LUN2 

.N1 

(NTU 

(NTUX 

• OBH 

(OBL 

4- 

fOBS 

t OBW  t RC  l£ 

jRD 

*S 

• SO 

• SOL 

(SEARCH 

4- 

tMO  ) 

DIAGNOSTIC  OUTPUT  LJST 


NAMELIST  /XMAPTiy 


♦ 

AA 

, ACTRMS 

(AREA 

• ELEV 

• GR^AOE 

( I EOF 

, lOST 

• IS 

*■ 

,1  ST 

(ITUT 

(LUN2 

*NI 

,NTU 

(NTUX 

• OBH 

•■OBL 

f 

(OBS 

(QBM 

,RCIC 

(RO 

•s 

(SD 

• SOL 

(SEARCH 

* 

•WO 

IFi (KMAP«EQ.l) 

.ANC^ 

IieOF.EQ 

.BMI  MRITEILUNI*: 

XMAP7i » 

GO 

TO  2020 

CONTINUE 

NATURAL  TERRAIN  UNITS 

TRANSLATCR 

CALL 

MAP741 

f 

AA 

(ACTRMS 

(AREA 

(ELEV 

•GRADE 

, l ECF 

( lOST 

• IS 

»• 

(IST 

(ITUT 

, LUN2 

(MONTH 

••NI 

(NTU 

(NTUX 

(OBH 

♦ 

(OBL 

(QBS 

(CBW 

(RCIC 

,R0 

• RDA 

(RDAi 

(RDA  2 

¥ 

ftKO  A3 

• R0A4 

,s 

(SO 

(SOL 

(SEARCH 

•WD  1 

DIAGNOSTIC  OUTPUT  145T 

NAMELIST  /XMAP74/ 

♦ 

AA 

, ACTRMS 

, AREA 

(ELEV 

(GRADE 

( lEOF 

• lOST 

(IS 

■I- 

• 1ST 

(ITUT 

(LUN2 

(MONTH 

• N1 

(NTU 

(NTUX 

(OBH 

+ 

(OBL 

(OBS 

» CBM 

• RCIC 

(RC 

(RDA 

• RDAI 

• RDA2 

*• 

(RDA3 

(R0A4 

,s 

• SD 

(SDL 

(SEARCH 

• MO 

DIAGNOSTIC  OUTPUT 


IF(  (KMAP.EQ.1>  .ANC^  ( IEOF-.EQ* 0i  » WRITE 4LUN1  ,XMAP74  » 
GO  TO  2020 

ROAC  NET  TRANSLATOR 

2015  CALL  MPRD74( 


COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
I NT  EGER 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
COMMON  /SCEN/ 
2.  ALGCRITHM 
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♦ 

ACTRMS 

, CURVV 

.CIST 

«EAKG 

• ELEV 

, FMU 

.GRADE 

t- 

tlECF 

, IkOAC 

, 1ST 

,ITUT 

• lURB 

>LUN2 

*NTU 

fNTUX 

♦ 

tNVASHO 

.MONTH 

.RACC 

>RCURV 

• RC 

, ROA 

.ROFOG 

.RCIO 

♦ 

, SEARCH 

, SURFF 

, VCURM 

1 

C DIAGNOSTIC  OUTPUT  iiST 

NAMELIST  /XROAC/ 


♦ 

ACTRMS  .CURVV 

,CIST 

• EANG 

*ELEV 

.FHU 

.GRADE 

*■ 

flEOF  .IROAO 

. 1ST 

,ITUT 

«1URB 

• LUK2 

,NTU  .NTUX 

* 

f 

«NVASHO  .MONTH 
.search  .SURFF 

. RAQ£ 
.VCURV 

fRCURV 

• RC 

.ROA 

.ROFOG  .RCIC 

2020 

IFI (KMAP  .EO. 
CONTINUE 

1)  .AMO. 

I lECF 

• EQ.  0FM 

WRITEILUNI.XROAOI 

IF(  lEOF  .EQ.  1)  GO  TO 
C 

C TERFAIN  PREPROCESSOR 


CALL  TPP4 


AA 

.ACTRMS 

•AREAfi 

fCl 

• EOF 

,ELEV 

.GAMMA 

.GRADE 

.lOBS 

.ISEASN 

. 1SNCU 

.1ST 

• iruT. 

.NI 

.OAW 

.OBAA 

* 

,OBH 

.OBL 

. CBMIKU 

tOBS 

•OBW 

.ODiA 

.PHI 

.RAOC 

,RCI 

.RCIC 

• RO 

fS 

•TANPHI 

.THETA 

fWA 

.2SNQN  1 

DIAGNOSTIC  OUTPUT  14ST 

NAMELIST  /XTPP/ 

«■ 

AA 

.ACTRMS 

.AREAQ 

«C1 

.ECF 

.ELEV 

•GAMMA 

.GRADE 

*■ 

,IOBS 

.ISEASN 

. IS NCR 

,IST 

,ITUI 

.NI 

• OAW 

.OBAA 

♦ 

.G6H 

.OBL 

• CBMiM 

.OBS 

tOBM 

• 00 1 A 

tPHl 

. RAOC 

f 

,RCI 

.RCIC 

>RO 

fS 

.TANPHI 

.THETA 

t WA 

.ZSNOW 

C OiAGNOSTlC  OUTPUT 

IFIKTPP  .EC,  «RITE(LUN1,XTPPI 
C A.  TERMINUS 
A0ia0  CONTINUE 

RETURN 
END 


SUBROUTINE 

AREAL 

1.  LABLEO 

COMMON 

ASSIGNMENTS 

COMMON 

/!0/ 

I80F 

COMMQ#< 

/lO/ 

KBUPF 

COMMON 

/IQ/ 

LWNl 

COMMON 

/lO/ 

LWN2 

COMMON 

/IQ/ 

'LUN3 

COMMON 

/IQ/ 

LUNA 

COMMON 

/lO/ 

1UN5 

COMMON 

/IQ/ 

LUN6 

COMMON 

/lO/ 

iUiN7 

COMMON 

/IQ/ 

LUN8 

COMMON 

HQ/ 

iUN9 

COMMON 

/JO/ 

LUNIB 

INTEGER 

AO 
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CQMPON  /INDEX/ 
INTEGER 

COMMON  /INDEX/ 
INTEGER 

COMMON  /INDEX/ 
INTEGER 

COMMON  /INDEX/ 
INTEGER 

COMMON  /INDEX/ 
COMMON  /INDEX/ 
INTEGER 

COMMON  /INDEX/ 
INTEGER 

COMMON  /INDEX/ 
INTEGER 

COMMON  /INDEX/ 
INTEGER 

COMMON  /INDEX/ 
INTEGER 

COMMON  /INDEX/ 
INTEGER 

COMMON  /INDEX/ 
INTEGER 

COMMON  /-INDEX/ 
INTEGER 

COMMON  /INDEX/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICU/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
REAL 


MD 

CONN 

cewN 

E£f 

E6f 

f€PCE 

FORCE 

CR 

GR 

LBV  EL 

!MN 

ML 

ASM 

PPM 

SPEED 

SPEED 

SR 

SR 

TP 

TP 

T6RCUE 

TdRQUE 

oa 

UP 

MX 

MX 

AGO 

ASHOE  1201 

AV£C 

AXLSF  (20 M 

CO 

CGH 

CiLAT 

C6R 

CJD 

CA 


CtRMIN 

(20) 

C€KVl 

42,251 

CCNVa 

42,25* 

CFLCT 

(20,3* 

C^IAW 

120* 

CRAFT 

ENGINE 

42,50* 

8X-EHGT 

fO 

(2*- 

FORDO 

GRCUSH 

4 20  * 

MVALS 

425* 

I APG 

16 

4 20* 

IQ 

4 20  ) 

ICIESL 
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COMf-ON  /VEHICL/ 
COMWON  /VEHICL/ 
COMWON  /VEHICL/ 
COHfON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
REAL 

COMMON  /VEHICL/ 
REAL 

COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
CCMMQN  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHia/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 


ICIESL 

I ENG IN 
Ifi 

(201 

ICONS? 

(20* 

'laQNVI 

1G0NV2 

I COWER 
4? 

1201 

IlCASE 

IIRAN 

ITVAR 

LOCKUP 

MAX  I PR 

MAXL 

NJMBLY 

NBOiGiE 

(20) 

AGHAIN 

(20) 

NCYL 

ACYL 

NING 

ASKG 

PCNET 

API 

(201 

AOR 

AHVALS 

ACAD 

(20  1 

ASVALS 

AWEH 

(20) 

AWW, 

(20) 

AMR 

PEP 

PBHT 

PCA 

fCWEP 

(2,2011 

CMAX 

POIAM 

( 20) 

PEVM 

(20) 

Ri**W 

(20) 

RMS 

(20  ) 

PM 

(20) 

SAE 

SAI 

SfiCTH 

(201 

SICTW 

<20* 

SVALS 

(25) 

TCASE 

(2) 

Tl: 

T0LY 

(20) 

Its  I 

(20,3) 

TOINC 

TRAKLN 

(20) 

TRAKMO 

(20) 
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COMMON 

/VEHICL/ 

TPANS 

( 2,20» 

COMMON 

/VEHICi/ 

VAA 

COMMON 

/VEHICL/ 

VGA 

COMMON 

/VEHICL/ 

VfS 

COMMON 

/VEHICL/ 

VOCB 

I25» 

COMMON 

/VEHICL/ 

VQOBS 

I2SI 

COMMON 

/VEHICL/ 

VRIOE 

420t3> 

COMMON 

/VEHICL/ 

.VSS 

COMMON 

/VEHICL/ 

^SSAXP 

COMMON 

/VEHICL/ 

COMMON 

/VEHICL/ 

TtBAXP 

COMMON 

/VEHICL/ 

MB  PTH 

(20) 

COMMON 

/VEHICL/ 

iiSTh 

COMMON 

/VEHICL/ 

kCHT 

(20  ) 

COMMON 

/VEHICL/ 

WRAT 

(20) 

COMMON 

/VEHICL/ 

kRFOPO 

COMMON 

/VEHICL/ 

M 

(20) 

COM  MON 

/VEHICL/ 

ktE 

(20) 

COMMON 

/VEHICL/ 

kMAXP 

COMMON 

/VEHICL/ 

XBRC  CF 

COMMON 

/VEHICL/ 

W‘l 

COMMON 

/VEHICL/ 

LfiCOlF 

COMMON 

/VEHICL/ 

S«F 

COMMON 

/PREP/ 

4 

(3, A) 

COMMON 

/PREP/ 

AIF 

(20) 

COMMON 

/PREP/ 

BTF 

(20) 

COMMON 

/PREP/ 

C^ARLN 

(20,3) 

COMMON 

/PREP/ 

C8FCFG 

(3) 

COMMON 

/PREP/ 

CSfCCC 

(3) 

COM  MON 

/PREP/ 

C8FCG 

(20,3) 

COMMON 

/PREP/ 

CSFFG 

(20,31 

COMMON 

/PREP/ 

CTF 

4 20) 

COMMON 

/PREP/ 

C8AT 

(20,3) 

COM-MON 

/PREP/ 

C€A 

(20,3H 

COMMON 

/PREP/ 

caw 

COMMON 

/PREP/ 

GC«8 

COMMON 

/PREP/ 

CCWNB 

COM  MON 

/PREP/ 

GCWNP 

COMMON 

/PREP/ 

CGWP 

COMMON 

/PREP/ 

HST 

COMMON 

/PREP/ 

NBF 

(38  ) 

COMMON 

/PREP/ 

KVEHC 

COMMON 

/PREP/ 

FHTE 

COMMON 

/PREP/ 

f 

43) 

COMMON 

/PREP/ 

PMX 

(20) 

COMMON 

/PREP/ 

RR 

COMMON 

/PREP/ 

TRACTF 

(20,5) 

COMMON 

/PREP/ 

TRAPS  I 

43) 

COMMON 

/PREP/ 

VCTCG 

(20,3) 

COMMON 

/PREP/ 

VCIFG 

420,3) 

COMMON 

/PREP/ 

.VC*1MUK 

(20) 

COMMON 

/PREP/ 

VGV 

420,5) 
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CCMRON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /OBS/ 
COMMON  /OBS/ 
COMMON  /OBS/ 
COMMON  /OBS/ 
COMMON  /OBS/ 
COMMON  /OBS/ 
COMMON  /OBS/ 
COMMON  /CBS/ 
COMMON  /OBS/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 


VT 

(20.31 

VIIRE 

(31 

RiMAX 

X 

(31 

.XIR 

AVALS 

(141 

CkEAR 

(7.  1A..5I 

ECO 

47,14,51 

^fOQMAK 

(7, 1A,5M 

MfiVALS 

(71 

KANG 

lAfiHGT 

KilCTM 

WVALS 

(51 

AOT 

iSi 

KflGCBF 

CAREA 

0«WB 

ceup 

C16WPB 

(20) 

fA 

(20,3) 

FAT 

(9) 

FATl 

(9) 

FB 

(20,3) 

PC 

(20,3) 

PMT 

( 9) 

fCM 

fCNMAX 

F£RMX 

(31 

I EC  CAT 

IMX 

(3) 

iSAFE 

(3) 

J 

MAXI 

B€MX 

(3) 

KiVERO 

C8SE 

EAV 

(91 

RlQWe 

RiiOWKB 

FIOMNP 

R2QUP 

RTQWPB 

(20* 

RCGUT 

(20  1 

SJRACI 

(20,3,3) 

SRFO 

(91 

SR<FV 

(9* 

SIR 

(3,91 

Tflf 

(3) 

7BEN 

(91 

TRESIS 

43,9) 

.VA 

(3,91 
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COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /TERRAN/ 
COM, MON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 
COMMON  /TERRAN/ 
COMMON  /TEHRAN/ 


NGGOVA 

(3,91 

^AVO ID 

(3,9I 

YIG 

(3»9M 

IIIPACT 

(9) 

VELV 

i 31 

Y£MAX 

13,1 

VI6 

(2i3»3»3N 

NOiGdVO 

(3*9) 

VMAX 

VNAXl 

131 

VMAX  2 

C3«91 

N04.A 

vevEP 

4 3,9) 

VRID 

VS  EL 

VS  ELI 

13) 

!VSEL2 

13,9) 

VSGIL 

43,9* 

VIT 

I3r9) 

VXT 

43,9) 

HOGQNG 
Nfl  AT  10 
AA 

ACT  RMS 
AREA 
AREAC 
U 

CiST 

EANG 

l€F 

EliEV 

Fiiu  ( 31 

GRADE 

UBS 

I€ST 

IROAC 

13  (91 

1ST 

liiyT 

M 

MU 

CAM 

CEAA 

CSH 

CBL 

C€S 

csu 

CfiMINM 

CDIA 

N^ASHO 

RACC 

F£I 
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COMMON 

/TERR  AN/ 

PC  1C 

(41 

COMMON 

/TERRAN/ 

POURV 

(ill 

COMMON 

/TERRAN/ 

PC 

• 

COMMON 

/TERRAN/ 

PCA 

(121 

COMMON 

/TERRAN/ 

S 

(91 

COMMON 

/TERRAN/ 

SC 

191 

COMMON 

/TERRAN/ 

SOL 

(91 

COMMON 

/TERRAN/ 

S^PFF 

COMMON 

/TERRAN/ 

TANPKI 

COMMON 

/TERRAN/ 

THETA 

(31 

COMMON 

/TERRAN/ 

■VCURV 

(4«  111 

COMMON 

/TERRAN/ 

Wl 

COM  MON 

/TERRAN/ 

WO 

COMMON 

/SCEN/ 

CGHES 

COMMON 

/SCEN/ 

WHALK 

COMMON 

/SCEN/ 

CCLNAX 

COMMON 

/SCEN/ 

COMMON 

/SCEN/ 

IfiVEP 

, 

COMMON 

/SCEN/ 

4SEASN 

COMMON 

/SCEN/ 

TJUPF 

COMMON 

/SCEN/ 

COMMON 

/SCEN/ 

Mill 

COMMON 

/SCEN/ 

Kii2 

COMMON 

/SCEN/ 

MiI3 

COMMON 

/SCEN/ 

KH4 

COMMON 

/SCEN/ 

MJI5 

COMiMON 

/SCEN/ 

K4i6 

COMMON 

/SCEN/ 

Mil? 

COMMON 

/SCEN/ 

KliS 

COMMON 

/SCEN/ 

K<]X9 

• 

COMMON 

/SCEN/ 

KJ110 

COMMON 

/SCEN/ 

Kiiii 

COMMON 

/SCEN/ 

K4112 

COMMON 

/SCEN/ 

Mills 

COMMON 

/SCEN/ 

KlilA 

COMMON 

/SCEN/ 

Mills 

COMMON 

/SCEN/ 

K1116 

COMMON 

/SCEN/ 

Mill? 

COMMON 

/SCEN/ 

KHAP 

COMMON 

/SCEN/ 

M3CEN 

COMMON 

/SCEN/ 

KIPP 

COMMON 

/SCEN/ 

MWEH 

CCMi»ON 

/SCEN/ 

K4V1 

COMMON 

/SCEN/ 

KIV2 

COMMON 

/SCEN/ 

KJV3 

COMMON 

/SCEN/ 

M1V4 

COMMON 

/SCEN/ 

KJV5 

COMMON 

/SCEN/ 

KJV6 

COMMON 

/SCEN/ 

KJV7 

COMMON 

/SCEN/ 

MJV8 

COMMON 

/SCEN/ 

KiV9 

COMMON 

/SCEN/ 

KlVl  0 
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COMMON 

/SCEN/ 

KiVll 

COMMON 

/SCEN/ 

KiV12 

COMMON 

/SCEN/ 

KhSV13 

COMMON 

/SCEN/ 

KiVl4 

COMMON 

/SCEN/ 

K4V15 

COMMON 

/SCEN/ 

KiV16 

COMMON 

/SCEN/ 

K4V17 

COMMON 

/SCEN/ 

KIVI  8 

COMMON 

/SCEN/ 

K4V19 

COMMON 

/SCEN/ 

MJ<V20 

COMMON 

/SCEN/ 

K4V21 

COMMON 

/SCEN/ 

LAC 

INTEGER 

C6TA1L 

COMMON 

/SCEN/ 

C IT  AIL 

COMMON 

/SCEN/ 

MIP 

COMMON 

/SCEN/ 

tAfPG 

COMMON 

/SCEN/ 

. -MONTH 

COMMON 

/SCEN/ 

h€PP 

COMMON 

/SCEN/ 

SSL  IP 

COMMON 

/SCEN/ 

MVRAV 

COMMON 

/SCEN/ 

MUX 

COMMON 

/SCEN/ 

fhl 

COMMON 

/SCEN/ 

flIACT 

COMMON 

/SCEN/ 

POFQG 

INTEGER 

SEARCH 

COMMON 

/SCEN/ 

SBARCH 

COMMON 

/SCEN/ 

SfiTXPC 

COMMON 

/SCEN/ 

V0RAKE 

COMMON 

/SCEN/ 

V4SMNV 

COMMON 

/SCEN/ 

VtilM 

COMMON 

/SCEN/ 

23nom 

ALGORITHM 

CALL  IVK 

•f 

ADO  fAOT  fARE/e 

fCL 

•ewoth 

,IOBS 

, lOST 

tIS 

f 

fNEVEPO  ,M  ,CAW 

• OBAA 

♦ CBH 

,08L 

fOBS 

fOBSE 

!■ 

,ODIA  ,PAV  ,FWTE 

tS 

♦ SO 

• TOEN 

tWA 

• WOTH 

+ 

»W1  ) 

C 

DIAGNOSTIC  OUTPUT  LIST 

namelist  /XlVl/ 

f 

ADO  fAOT  , ARE  AO 

«CL 

♦EWOTH 

• lOBS 

• lOST 

• IS 

♦ 

,NEVEP0  ,NI  ,CAk 

♦ OSAA 

♦ QBN 

,OBL 

• UBS 

♦ 08S6 

fODIA  ,PAV  ,PWTE 

♦ 5 

♦ SO 

• TOEN 

irWA 

• WDTIi 

.WI 

c 

DIAGNOSTIC  OUTPUT 

IFIKIVI  .EQ.  11-  XRlTEiLUNl, 

XIVIM 

CALL  IV2( 

f 

CL  , CARE  A ,CRAFI 

•FORDO 

♦GRADE 

♦I FLO AT 

♦ lOBS 

• 1ST 

,ITUT  ,JPSI  ,NCGCaD 

• NOFP 

• NWR 

• PWTE 

• SRFV 

• VSEB 

+ 

«VSS  ,WO  ,kOPT>&i 

• MOTH 

•wrat 

•WRAT 10 

♦WRFORD 

c 

Cl  A GNOSTIC  OUT  PUT  LIST 

NAMELIST  /XiV2/ 

+ 

CL  ,DAREA  ♦CRAFT 

♦FORDO* 

•GRADE 

• lf4.0AT 

♦ lOBS 

,IST 

2 3 9 
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f 

,ITUT  ,JPSI  jNCGCMD  ,NOPP 

• NWR 

,PWIE 

.SRFV 

• VSEk 

*■ 

fVSS  ,WD  .taDPlh  ,WDTH 

,WftAT 

» WRAT 10 

.WRFORO 

c 

DIAGNOSTIC  OUTPUT 

IF(KIV2  .EQ.  11  NfiITE4LUNl. 

XIV^P 

CALL  IV3( 

CHARLN  ,CI  ,CCHE$  ,CPFfG 

tDlAW 

•oowpa 

.DRAT 

.6AMHA 

*■ 

*GCA  ,IB  ,ID  ,IP 

f 1ST 

.JPSI 

• LUNl 

.NAMELY 

f 

,NPAD  ,NSLIP  ,hVEF  ,NWHL 

,RCI 

•RTOWPB 

•RTOUT 

.SECIW 

♦ 

,TANPHI  ^TRAKLN  ,TRAK«C  ,VCIFG 

rVCdMUK 

t WGHT 

.WRATIO 

(ZSNOW 

c 

DIAGNOSTIC  OUTPUT  iiST 

NAMELIST  /XIV3/ 

«■ 

CHARLN  ,CI  ,CCHES  »CPfFG 

• OtAW 

tDOWPB 

• ORAT 

.GAMMA 

4- 

,GCA  ,IB  « ID  ,IP 

,IST 

» JPSI 

• LUNl 

» NAMBLY 

»■ 

,NPAD  .NSLIP  ,NVEF  ,NWHL 

• RCI 

tRTQMPB 

.RTOWT 

.SECIW 

f 

•TANPHI  ,TRAKLN  ,TRAt<MO  «VCIFG 

•VCIMUK 

tWGHT 

.WRATIO 

• ZSNQH 

c 

DIAGNOSTIC  OUTPUT 

IF(KIV3  .EO.  1)  WRlIiE(LUNl»Xltf  31 

CALL  1VA( 

«• 

OOWB  ,OOWP  ,COhf.B  tKlCU 

«GCWB 

(GCMP 

• IB 

• IP 

+ 

,NAMBLY  tRTQWB  , PTG^kB  ,RTCWNP 

•RTOMP 

•RTOUPB 

•RTQMT 

.WGHT  1 

c 

DIAGNOSTIC  OUTPUT  LIST 

NAMELIST  /XIVA/ 

+■ 

OOWB  tOOWP  •CQMPE  .GCW 

tGCWB 

tGCWP 

• IB 

.IP 

f 

tNAMBLY  tRTQWB  ,RTCWNB  iRTCWNP 

tRTOUP 

.RTOMPB 

.RTOWT 

.WGHl 

c 

DIAGNOSTIC  OUTPUT, 

IFIKIVA  .EQ.  11  WRlf€(LUNl,XtV4l 

CALL  IV5( 

ATF  ,AVGC  ,aTf  ,C0 

fCPFCCC 

.CPFCFG 

•CTF 

.DAREA 

♦ 

fOQwP  . EANG  t ECF  .FA 

tFB 

,FC 

• FORMX 

• GCWR 

f 

.IFLQAT  ,IST  ,ITUT  *JPSI 

• LOCOIF 

•NAHBLY 

• NFL 

.tNGR 

♦ 

.NTRAV  ,NVEH  lAVEFC  ,NWHL 

• RADC 

•RTOWP 

.STRACT 

,TFOH 

f 

, theta  ,tractf  ,vfmax  ,yG 

• VGV 

.WGHT 

• WRAT  10 

.LUNl  t 

c 

DIAGNOSTIC  OUTPUT  LIST 

NAMELIST  /XIV5/ 

*■ 

ATF  ,AVGC  ,BTf  ,C0 

.CPFCCG 

.CPFCFG 

• CTF 

•DARE A 

* 

•DDWP  ,EANG  »ECF  tFA 

*FB 

.FC 

.FORMX 

.GCWR 

*■ 

,1FL0AT  ,IST  ,IT.UT  ,JPSI 

,LOC01F 

.NAMBLY 

.NFL 

• NGR 

f 

.NTRAV  »NVEH  ,NVEHC  »NUHL 

«RACC 

.RTOWP 

.STRACT 

.TFOR 

+ 

, THETA  ,TRACTF  .VFMAX  .VG 

.VGV 

.WGHT 

.WRATIO 

c 

DIAGNOSTIC  OUTPUT 

IF(KIV5  .EQ.  IP  MRITEtLUNIf 

'XIV5I 

CALL  IV6I 

♦ 

FAT  ,FAT1  ,FMT  ,NI 

,PBHT. 

.SO 

f 

,SDL  ,TOEN  ,HDTF  1 

c 

DIAGNOSTIC  OUTPUT  LiST 

NAMELIST  /XIV6/ 

4- 

FAT  ,FAT1  fFHT  ,N! 

.PBHTv 

.SO 

.SOL 

,TDEN 

4 

,WDTH 

c 

DIAC-NOSTIC  OUTPUT 

1F1KIV6  .EQ.  11  UR  llElLUNlfXIVAl 

call  IV7( 

4 

FMT  ,GCW  .IMPACT  ,MAXl 

.NI 

• PBF  ) 

240 
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c 

DIAGNOSTIC  OUlPOT  L4ST 
NAMELIST  /XIV7/ 

♦ 

FMT  ,GCW  , IMPACT  ,MAXI 

<N1 

.PBF 

c 

DIAGNOSTIC  OUTPUT 

IFIKIV7  .EQ.  11  MRiTE<LUNl»XIV7l 

CALL  IV8I 

* 

FAT  ,FAT1  ,6CH  ,GCWNP 

»GCWP 

• MAXI 

.RTGWF  ,STR  ,THETi  .TRESIS 

» HR AT  I Q 

) 

C 

DIAGNOSTIC  OUTPUT  tiST 
NAMELIST  /XlVa/ 

■ 

+ 

FAT  ,FAT1  ,GCM  ,6CWNP 

.GCWP 

.MAXI 

*• 

,RTOWP  ,STR  .THETA  .TRESIS 

• WRAT  10 

c 

DIAGNOSTIC  OUTPUT 

1FIKIV8  .EQ.  1)  MRlTElLUNlfXlVSI. 

CALL  IV9I 

♦ 

FA  ,FB  .FC  ,FORMX 

.MAXI 

.NGR 

*NI  .NTRAV  ,TRES?1S  .VFMAX 

.VG 

•VSOIL 

C 

DIAGNOSTIC  OUTPUT  LIST 

NAMELIST  /XIV9/ 

* 

FA  ,F8  ,FC  .FORHX 

.MAXI 

.NGR 

* 

.TRESIS  , VFMAX  .VG  .VSGIL 

C 

DIAGNOSTIC  OUTPUT 

1F(KIV9  .EQ.  11  WRlT6(LUNl.XiV9) 

CALL  IV10< 

*■ 

ACTRMS  .LAC  .MAXTOR  .RMS 

.VRID 

.VRIDE 

C 

DIAGNOSTIC  OUTPUT  LIST 

NAMELIST  /XIV10/ 

♦ 

ACTRMS  .LAC  . irAX  1)«R  .RMS 

tVRlOE 

.VRId 

c 

DIAGNOSTIC  OUTPUT 

iNTRAV 


, NTRAV 


*NI 


CALL  IVIU 

* 00MB  »GCW  »GCM8  »GCWNB 

,RTOWE  .RTOWNB  ,TBf  , THETA 

DIAGNOSTIC  OUTPUT  LIST 


•NOGOBF 

•MRATIQ 


, NTRAV 
• XBR  ) 


NAMELIST  /Xivn/ 

«■  OOWB  ,GCW  ,GCWB  »GCWNB  tNOGOBF  »NTRAV  »RTOW& 

*■  ,TBF  , THETA  ,WRATIC  tRBR 


C 

DIAGNOSTIC  OUTPUT 

IFiKIVll  .EG.  U WP-iTEILUNi. 
CALL  IV12( 

XIVll  1 

+ 

BFMX  .DCLMAX  .GCW  .NTP^V 

.SFTVPC 

.TBF  J 

c 

DIAGNOSTIC  OUTPUT  LIST 
namelist  /XIV12/ 

f 

BFMX  .OCLMAX  ,CCW  .NTRAV 

.SFTYPC 

.TBF 

c 

DIAGNOSTIC  OUTPUT 

IF(KIV12  .EQ.  11  WRITEItUM. 
CALL  IV 131 

XJVl^l 

BFMX  .EVEHGT  , GCW  .NTRAV 

.RO 

.REACT 

»VELV 

c 

DIAGNOSTIC  OUTPUT  LIST 
NAMELIST  /XiV13/ 

♦ 

BFMX  .EVEHGT  .GCW  , NTRAV 

.RO 

.REACT 

»VELV 

C 

DIAGNOSTIC  OUTPUT 

24  1 

•RTOMNP 

•RTQWNP 

• NTRAV 


,RTOHNB 

•VISMNV  } 
•VISNNV 
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IF(KIVi3  .EQ.  1»  WFiTEaUM,XIV13> 
CALL  IV14( 


4- 

JPSI  ,N1  ,MRAV  fNVEHC 

,VELV 

.VRIO 

f 

,VSOIL  ,VTIRE  ,VTT  A 

c 

DIAGNOSTIC  OUTPUT  LIST 

NAMELIST  /XIV14/ 

«• 

JPSI  fNI  tNTRAVI  ,NVEHC 

.VELV 

.VRID 

.VSOIL 

.VTIRE 

1- 

»V-T 

c 

DIAGNOSTIC  OUTPUT 

IF(  KIVIA  .EG,  1 » ilRITEILUNl, 
CALL  IV15< 

XIVlAt 

f 

adt  ,ni  ,ntraw  ,nvehc 

• PAV 

.VAVQIO 

.vBa 

.VTT  T 

c 

DIAGNOSTIC  OUTPUT  UST 

NAMELIST  /XIV15/ 

«• 

ADT  ,NI  .NTRAV  ,NVEHC 

»PAV 

• V AVOID 

• VBQ 

,VTr 

c 

DIAGNOSTIC  OUTPUT 

!F(KIV15  -EQ.  n WRlTE<LUNi,XlVl5l 

CALL  I VI 61 

AVALS  .CLEAR  ,FCM  .FOMMAX 

,FOO 

.FOQMAX 

.HOVALS 

.NANG 

.NEVERO  .NQHGT  .NMOTH  .OBAA 

• OBH 

.QBHINW 

.WVALS  t 

c 

DIAGNOSTIC  OUTPUT  L4ST 

NAMELIST  /XIV16/ 

#• 

AVALS  .CLEAR  , fOM  .FOMMAX 

.FOO 

•FOQMAX 

.HOVALS 

• NANG 

4- 

»NEVERO  .NOHGT  .NWOTH  ,OBAA 

.GBH 

• OBKilNW 

.WVALS 

c 

diagnostic  output 

IF(KIV16  .EO.  It  WRiTE{LUNl.XlVI6i 

CALL  IV17J 

I- 

HVALS  .NEVERO  .NHVAfcS  .NSVALS 

,OBH 

tOBSE 

4- 

.SVALS  »TL  »VCLA  .VOCB 

.VOOBS 

.WA  t 

c 

DIAGNOSTIC  OUTPUT  LIST 
NAMELIST  /XIV17/ 

♦ 

HVALS  .NEVERO  .NHVAbS  .NSVALS 

.OBh 

.OBSE 

.SVALS 

.TL 

♦ 

rVOLA  .VOOB  . VOGBS  .MA 

c 

DIAGNOSTIC  OUTPUT 

IFIKIVI?  -EO,  1)  WPITEILUM.XIVITI 

CALL  IV18( 

4- 

FA  ,FB  . FC  .FOM 

.FOMMAX 

, FORMX 

.GCW 

.JPS  1 

4- 

.MAXI  .NEVERO  .NCR  ,NI 

.NTRAV 

.NVEHC 

• OBSF 

tSRFU 

4- 

,Tl  .TRESIS  ,VA  ,VBC 

.VELV 

.VFMAX 

.VG 

• VOL  A 

4^ 

,VRIO  .VSQIL  .VTlfE  4VXT 

• WA  1 

c 

DIAGNOSTIC  OUTPUT  LIST 
NAMELIST  /XIV18/ 

4 

Fa  ,FB  .FC  .FOM 

.FOMMAX 

.FORMX 

.GCW 

.JPS  1 

4- 

,MAXI  .NEVERO  , NGR  ,NI 

•NTRAV 

.NVEHC 

• OBSE 

.SRFV 

4- 

,TL  .TRESIS  .VA  .vac 

.VELV 

.VFNAX 

.VG 

• VOL  A 

4 

,VRID  .VSOIL  .VTIPE  .VXT 

•WA 

c 

DIAGNOSTIC  OUTPUT 

IFIKIVIS  .EG.  I>  MFlTEILUM.XlViei 

CALL  IV19t 

4 

BFMX  .FA  . FB  .FC 

•FOMMAX 

, FORMX 

• GCW 

rLUNl 

4 

.NEVERO  .NGR  .M  .NTFAV 

• G6SE 

• RMX 

•STRACT 

.tl 

4 

.TRESIS  .VA  ,VBO  .VFPAX 

.VG 

•VOVER 

•VXT 

.WA  1 

24^2 
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c 

DIAGNOSTIC  output  LIST 

NAMELIST  /XIV19/ 

♦ 

BFMX  ,FA  ,FB 

»fC 

t FORNAX  , FORMX 

••GCW 

• LUNl 

*■ 

,NEVERO  ,NGR  , M 

• NTRAV 

•QBSE  tRMX 

, STRACT 

rTL 

*■ 

• TRESIS  .VA  ,VBC 

•VFPAX 

•VG  •VOVER 

• VXT 

fWA 

c 

[IIAGNQSTIC  OUTPUT 

IF(KIV19  ,EQ,  11  WPJJEILUN1,XIV19I 

CALL  IV2BI 

♦ 

FA  ,FB  ,FC 

•FORMX 

•GCW  fMAXI 

• NGR 

•NOGOVA 

•NCGOVQ  .NTRAV  .STR 

•VAVCIO 

»VG  .VOVER 

1 

c 

DIAGNOSTIC  OUTPUT  LIST 

NAMELIST  /X1V20/ 

♦ 

fa  »FB  ,fC 

•FORMX 

» GCW  • M AX  I 

• NGR 

•NOGOVA 

* 

•NCGOVO  f NTRAV  ,STR 

•VAVCID 

»VG  yVOVER 

c 

DIAGNOSTIC  OUTPUT 

IF(HIV20  .EO-  1»  WR1TE(LUN1*X1  V20T 

CALL  IV21( 

♦ 

DOWN  .EMT  .GCk 

• I MAX 

• lOVER  tiSAFE 

•LEVEL 

•N1 

4- 

• NOGQVA  .NOGOVG  • NTRAV 

• UP 

•VAVOIO  .VMAX 

• VNAX 1 

• VMAX2 

4 

•VOVER  .VSEL  »VSELL 

• VSEL2 

•VWALK  1 

c 

DIAGNOSTIC  OUTPUT  LIST 

NAMELIST  /XIV21/ 

4 

DOWN  ,FMT  ,GCW 

• IHAX 

• lOVER  tISAFE 

•LEVEL 

fNI 

* 

• NOGOVA  • NCGOVO  • NTRAV 

•UP 

••VAVOIO  tVMAX 

•VMAXl 

•VHAX2 

♦ 

•VOVER  ,VSEL  ,VS£LI 

•VS EL2 

• VWALK 

C 

C 


3. 


DIAGNOSTIC  OUTPUT 

IF(KIV21  .EQ.  1}  WR1TE(UUN1,X1  V21t 


TEftPiNUS 
CONTINUE 
RETURN 
END 

subroutine  MAP71 


(AA  .ACTRMS 

• I ST  •ITUT 

•OBS  ,OBW 

,WD  1 

• AREA 

• LUN2 

• RCJC 

• elev 

• NI 

• RO 

•GRADE 

• NTU 

• s 

• I EOF 

• NTUX 

• SO 

• lOST 

• OBH 
•SOL 

• IS 

• OBL 
•SEARCH 

WAP  legend  INPUT 

ROUTINE 

(AMC71 

F CRM ATI 

1.  VARIABLE  DEFIMTICN 


INTEGER 

IS 

{9L 

REAL 

RCIC 

I 4A 

REAL 

S 

<9* 

REAL 

so 

I 9N 

REAL 

SOL 

191 

INTEGER 

SEARCH 

REAL 

FNAA 

U4I 

REAL 

FNGRAC 

1 ST 

REAL 

FNOBh 

T7I 

REAL 

FNCBL 

I 7A 

243 
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REAL  FNOBS 

< 8A 

REAL  FNCBW 

( 5» 

.A. 

HEAL  FNRCI 

Mil 

• 

REAL  FNRD 

i 91 

REAL  FNRMS 

( 91 

REAL  FNSPAC 

( 81 

C 3 . 

TERRAIN  FEATURE  CLASSES 

C 

A. 

SURFACE  STRENGTF  CLASSES  LB/SQ21N 

CATA  FNRCK  11 

*■ 

FNRCH  2 1 

/250.0/, 

f 

FNRCIOl 

yi9040/# 

f 

FNRCK  41 

/130.0/  • 

f 

FNRCI (51 

4 

*■ 

FNRCI(6  ) 

4 S0«2/, 

*■ 

FNRCKTI 

i 36«0/* 

* 

FNRCKS  I 

/ 29.0/ t 

¥ 

FNRCI (91 

/ 20,0y» 

¥ 

FNRCK  Ul 

/ 14.0/, 

¥ 

FNRCKll) 

i 5.0/ 

c 

B. 

GRADE  CLASSES 

flERCENT 

CATA  FNGRAD( 1» 

A 1.0/« 

¥ 

FNGRADI 21 

A 3.5/, 

¥ 

FNGRACOl 

A 7.5/* 

¥ 

FNGRAD( 

^15.0/, 

¥ 

FNGRA0( 5) 

ia0.0/. 

¥ 

FNGRAOt  61 

A60.0/. 

¥ 

FNGRAC(7> 

¥ 

FNGRAOi  81 

/32i0/ 

c 

C. 

RECOGNITION  CISTJNCE  CLASSES  FT 

• 

CATA  FNROIH 

/ia4.0/. 

¥ 

FNRD(2» 

/ 123.0/, 

♦ 

FNROl  3» 

/ ss.e/. 

FNRO(A) 

/ J4.8/, 

*■, 

FNRO( 5 1 

/ 24.6/r 

FNRD(6» 

/ X7..W, 

* 

FNR0(7» 

/ li2J5/, 

f 

FNftD(8» 

/ 7.5/, 

¥ 

FNRD(9I 

/ 2.6/ 

c 

0. 

OBSTACLE  SPACiNC  CLASSES  FT 

CATA  FNOBS( 1 * 

/W7.0/, 

f 

FNOBS( 21 

/JJ1.0/, 

♦ 

FNOBS( 3) 

/ 51.2/, 

FNOBS  (4) 

/ ai.5/. 

¥ 

FNOBSIS 1 

/ 22.3/, 

¥ 

FNQBStbl 

/ 15.7/, 

1 

¥ 

FNQBS(7) 

/ 10.3/, 

¥ 

FNOBSiSI 

y 3.9/ 

c 

E. 

CBSTACLE  APPROACH  ARGlE  CLASSES  CEG 

CATA  FNAAdl 

/J.39.0/, 

+ 

FNAAl 21 

/181.0/, 

¥ 

FNAAOl 

/J27.0/, 

¥ 

FNAAtAl 

/ 183.0/ r 

244 

• 

R-2i458t  VOCUKE  I PAGE  A-72 

APPENDIX  A - LISTING  OF  PROGRAM  NRHM 


C 


c 


c 


c 


c 


c 


f 

FNAAI5) 

+ 

FNAA<6  > 

1- 

FNAAi 71 

♦ 

FNAA(8) 

«- 

FNAAI9I 

♦ 

FNAA( 10 ) 

/20A.e/, 

f 

FNAAILl h 

«• 

FNAA(12) 

/2Li««£/» 

«■ 

FNAAI  13» 

/ 112.0/* 

*■ 

FNAA( 14 i 

/2«i820/ 

F. 

OBSTACLE  HEIGHT  CLASSES 

DATA  FNQ8H(1» 

/ 3a15/* 

*■ 

FNOBHt2» 

/ 7.87/, 

*■ 

FNOBHI3  1 

/J1A81/* 

*• 

FNaBH(4) 

/J5.75/, 

*■ 

FNOBHi  5 1 

/1!0  «8<7/  ^ 

*■ 

FN06H{6I 

/28^35/, 

* 

FNQBHi  7i 

/A3.4A/ 

G m 

OBSTACLE  WIDTH 

1 CLASSES  F 

DATA  FNOBWU  1 

/11.80/, 

*■ 

FNQBWt2i 

4 3.48/, 

*• 

FNOBW<  3) 

/ 1*^9 t. 

♦ 

FNQBW(4) 

4 3.54/* 

FNOBW5  ) 

/ 0.49/ 

H. 

CBSTACUE  LENGTH  CLASSES  i 

DATA  FNOBLli) 

/ 0.66/* 

*■ 

FNOBL(2 i 

/ 2.34/* 

♦ 

FNOBLi 3 i 

/ 5.25/, 

«> 

FNOBLUJ 

4 8.S3/, 

FNOBLiS  » 

/ 15.09/, 

»• 

FN0BL(6» 

/>256.00/, 

«■ 

FNOBLi 7» 

1. 

SURFACE  ROUGHNESS  CLASSES 

CAT  A FNRMSU) 

/ij.2  5y. 

»■ 

FNRMS(2» 

/3.00/* 

♦ 

FNRMSIS  ) 

/^b00/. 

«• 

FNRMS<4J 

/3.00/* 

♦ 

FNRMS<5  ) 

/«.0£/* 

*■ 

FNRMS(6I 

2^.00/* 

■f 

FNRMS(7  J 

74*.  00/, 

*• 

FNRMS(81 

/I.  00/, 

♦ 

FNRMSI  9 ) 

./.8L00/ 

J. 

VEGATATION  SFACIftfi  CLASSES 

CAT  A FNSPACIl) 

i300.:0/. 

»■ 

FNSPAC(2» 

0 65.6/, 

♦ 

FNSPACI  3) 

i 5122/, 

f 

FNSPAC( 4J 

^ 3125/, 

* 

FNSPACI 5J 

/ 22.3/, 

*■ 

FNSPACl 6J 

i 1527/, 

♦ 

FNSPACI  7) 

£ 10.8/, 

t- 

FNSPAC( 8) 

J 3.9/ 

4. 

REAL  LEGEND 

245 
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A0  0it} 


42k! 

C 

Sniid 

C 

C 

C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


♦ 

* • 

♦ . 

*■  f 

♦ . 


CONTINUE 
lEOF  = 0 
REAOlLUN2y40  0i9»' 

NPAT  ,IST 

I GRACE  ,10A  *40H 

lOS  ,I0ST  .IIIMS 

ISTEP3  ,IST£M4  .JSTEMS 

I STEPS  ,IRD  >iREA 


,IRCI2 

tICW 

.istemi 

• 1STEM6 


fORMATM4«4l2>  U»l2tl5n«Fie.ai 
IF(EOF(LUN2)  .:EC2  0)  GO  TO  420 
I EOF  = 1 
GO  TO  600 
CONTINUE 

IF( (SEARCH  .EG.  IF  wANO^  (NTUX  .NE. 
5.  CONVERT  FROM  CLASSE  TO  REAL  UNITS 
CONTINUE 

A.  TERRAIN  UNIT  NUFBER 
NTU=NPAT 

B.  TERRAIN  UNIT  TV  FB 


!TUT  = 1 


C.  SOIL  TYPE 
TST 

C.  SURFACE  STRENGTH  LB/SC-IN 
RCIC(l»  = FNRCI(lPCIi» 


RC.IC(2F  = FNRC1(  IPC€2I 
RCICC3»  = FNRC  li(lPCI3» 

E.  CRADE  PERCENT 
GRAOEsFNGRAOIIGPAOE) 

F.  SURFACE  ROUGHNESS  ‘IN 
ACTRHSsFNRMSIIRPSF 

G.  VISIBILITY  FT 
RO=FNRD(  IRDJ 

H.  CEPTH  OF  STANCIPS  WATER  FT 


WO  ^0  .0 


« IRCI3 
,2  0L 
, ISTEM2 
.ISTEHT 


NPATII  go  TO  400 


U ELEVATION  FT 
£LEV=0.0 

K.  CBSTACLE  SPACIN'G  FT 
C8S=FNOBS( ICSF 

L.  OBSTACLE  AVOIDABILITY  FCTENTIAL 
TOST 

M.  CBSTACLE  APPROACH  ANGLE  DEGREES 
AA=FNAA{ lOA) 

N.  OBSTACLE  HEIGHT  IN 
C8H=FN0BH( lOhF 

O.  CBSTACLE  WIDTH  FT 
OBH=FNOBH(ICMF 

P.  OBSTACLE  LENGTH  FT 
CBL=FNOBLl lOLK 

R,  NUMBER  OF  STEM  CLASSES 
NI  = 8 

$•  MEAN  SPACING  OF  STEMS 
S( 1I=FNSPAC(  ISTENII 


2 46 


ooooonoo 
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SI2I  = FNSPACC  JSTEM2I 
Si  3l=FNSPACi  1STEH3I 
Si4l=FNSPAC(  ISTEN4I 
S<5»  =FNSPAC4  ISTEM5> 

SC  6I=FNSPAC4  1ST  EH6I 
Si  7»=FNSPACC  1STEN7I> 

Si  8l=FNSPACi  IST£H«I 

C T.  MAXIMUM  STEM  DIAMETER  IN 

SDLt 11=0*98 
SOLC2»=2.a6 
SDLi 31=3.94 
S0Li4»=5,51 
SDLt5l=7.09 
SOLibl^^S  *66 
S0L{7J=9,.84 
SOLi8)=15.00 

C U.  MEAN  STEM  DlAMEtiP  IN 

soil »=0.49 
SO<2)=1.67 
SO  I 3 1 = 3* 15 
SDi4»=4.73 
SOi51=:6.30 
SD(6)=7.88 
SO  i 71=9.25 
sots  1 = 12.42 

C V.  BARREN  VEGATATICN  FLAG 

M1=NI-1 
CO  540  l=lrNIl 

IFI  SMI  •EG.  SM>1>  » GO  TO  530 

isc  n=e 

GO  TO  540 

530  CONTINUE 

ISM1  = 1 

54  0 CONTINUE 

IS(NII‘=0 

C 6.  EXIT  ROUTINE 

600  CONTINUE 

RET  URN 
END 

SUBROUTINE  MAP74 


♦ 

( AA 

, ACTRMS 

> AREA 

,ELEV 

.GRADE 

, I EOF 

, lOST 

• IS 

f 

,I  ST 

,ITUT 

,LUN2 

f MO ITH 

tNI 

,NTU 

,NTUX 

• OBH 

♦ 

,OBL 

.DBS 

» CBN 

»RC  IC 

.RD 

,RDA 

.ROAl 

,RDA2 

♦ 

,ROA3 

»R0A4 

»s 

>SD 

tSOL 

•SEARCH  yWO  1 

MAP  LEGEND  INPUT  ROOT INE  C AHC74  FCRMATI 
— —————  — ^ — 


1.  GLOSSARY 

AA  DEGREE 

ACTRMS  IN 


C8STACLE  - APPROACH  ANGLE 
RMS  ROUGHNESS 
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£ 

C 


2 . 

C 4 . 
40413 

400 

402  0 


AREA  SO.  MI.  AREA 

ELEV  FT  ELEVATION 

GRACE  PERCENT  SLOPE 

lOBS  U BARREN  OBSTACLE  FLAG 

lOST  1-RANDCM  CBSTACLE  - SPACING  TYPE 

2-LlNEAR 

ISdl  » BARREN  VEGETATION  FLAG*  CLASS  I 

ITUT  H TERRAIN  UNIT  TYPE 

lEOF  # END  OF  iNFORHATlCN  FLAG 

KMAP  H CALL  LIST  DUMP  FLAG 

LUN2  H .E8G2CAL  UNIT  FLAG  NUMBER  2,  TERRAIN 

month  # RONTH  ( 1 ThROUGF  » 

NI  U NUMBER  OF  VEGETATION  CLASSES 

NTU  # TERRAIN  UNIT  NUMBER 

Q8H  INCH  OBSTACLE  - KEiCHT 

OBL  FEET  OBSTACLE  LENGTH 

OBS  FEET  CBSTACLE  - SPACING 

OBW  INCH  OBSTACLE  - WIDTH 

RCICdl  RCI  SCIL  strength  - CRY 

RCIC(2»  RCI  SOIL  STRENGTH  - AVERAGE 

RCICO)  RCI  SOIL  strength  - WEI 

RCIC(4J  RCI  SOIL  STRENGTH  - WET, WET 

RC  FEET  VISIBILITY 

SUJ  feet  STEM  SPACING  OF  STEMS  OF  DIAMETER  CLASS 

SOI  II  IN  MEAN  STEM  DIAMETER,  CLASS  I 

S0L<II  IN  MAXIMUM  STEM  DIAMETER,  CLASS  I 

WO  FEET  DEPTH  CF  STANDING  WATER 

VARIABLE  OECLARATICA 

INTEGER  IS  IS* 

REAL  RCIC  (4* 

REAL  RDA  ( 12)- 

REAL  S 19* 

REAL  SO  19* 

REAL  SDL  <9* 

INTEGER  SEARCH 

INTEGER  DATA  124* 

ALGCRTTHM 

CONTINUE 

lEOF  = 0 

READ! LUN2,400HNTW*1ST,CATA, AREA 

FORMAT!  15, 12,20X01214, /.SX,  12  IG.FB. 4) 

LF(EOF(LUN2l  .fO.  0*  GO  TO  4020 


TEOF  = 1 
GO  TO  5000 


RCIC! l» 

= 

DATAil* 

RCIC(2I 

OATAI2* 

RCICO* 

DATA43* 

RC1CI4) 

OATAU* 

GRADE 

OATA(5* 

aA 

DAT.AI6I 

□ BH 

CATAX7* 

OBW 

0ATAI8  I 
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A005 


4030 


404  0 


QBM 

OBL 

DBS 

lOST 

ACTRMS 

DO  4005 

S(  ii 

CONTINUE 

RDAl 

RDA2 

ROA3 

R0A4 

CONT INUE 


= QBk  / 12* 

= DATAi9» 

= OATAn03< 

= DATAUil 
::  OAT.au  2) 

1 = 1,8 

= 0AT.AUU2I 

= 0AT1AI21I 
= 0ATAI22I- 
= 0ATA(23A 
= 0ATAI24I 


IFUSEARCH  .EQ.  U-  ♦.AND 

ROAUI 

s 

RDAl 

kOA(2) 

a 

ROAI 

R0A(3I 

s 

RDAl 

R0AI4K 

= 

RQA2 

R0A(5> 

s 

R0A2 

kOA(6> 

R0A2 

R0A(7I 

a 

R0A3 

R0AI81 

« 

R0A3 

ROA(94 

a 

RDA3 

ROA<10» 

a 

R0A4 

ROAdll 

a 

RDA4 

R0AI12I 

a 

R0A4 

ACTRMS 

a 

ACTRMSyi«.0 

ELEV 

a 

0.0 

ITUT 

s 

1 

N1 

a 

8 

Nil 

a 

NI-1 

00  4040 

1=1, Nil 

fNTUX  .NE« 


IFfSUl  .EQ.  GC  TO  4030 

ISU)  = 0 
60  TO  4040 
CONT  INUE 

is( n = 1 


CONTINUE 

ISINII 

= 0 

RD 

= ROAIM 

SOI  11 

= 0.49 

SOI  2} 

= 1 .67 

SOI  3» 

= 3.15 

SOI  41 

= 4.73 

SD(  5> 

= 6.30 

SOI  6) 

= 7.88 

SD(  71 

= 9.25 

SOI  81 

= 12.42 

SDL  11 1 

= 0.98 

S0LI2I 

= 2.36 

SOL (31 

= 3.94 

SOL  141 

= 5.51 

NTUU  GO  TO  4000 
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50  00 


SDL(5»  = 7.09 

SDL(6»  = 8.66 

S0L(7I  = 9.84 

S0L(8I  = 15.00 
WO  = 0. 

CONTINUE 
RETURN 
END 

SUBROUTINE  MPR074 


< ACTRMS 

.CURVV 

.CIST 

• EANG 

• ELEV 

.FMU 

.GRADE 

♦ 

.lEOF 

» IRQAO 

> 1ST 

#ITUT 

«IURB 

.LUN2 

*ntu 

.NTUX 

* 

,NVASFO 

.month 

«radc 

•RCURV 

»RC 

• ROA 

•ROFOG 

«RCIC 

♦ 

.SEARCH 

,surff 

. vcupw 

) 



— — — '.i.'-!*- 

m « m m 

MAP  legend  INPUT  ROUTINE  IROAC  MAP  AMC74I 


GLOSSARY 

ACTRMS 

INCH 

RMS  ROUGHNESS 

CURVV 

MPH 

AASHG  CURVATURE  SPEED  LIMIT 

GIST 

MILES 

ROAC  SEGMENT  LENGTH 

EANG 

DEGREE 

SUPERELEVATION  ANGLE 

ELEV 

FEET 

ILEVATICN  ABOVE  SEALEVEL 

FMUa  » 

H 

COEFFICIENT  OF  FRICTION  - DRY 

FMUJ2I 

M 

CCEfFICIENT  OF  fRICTiON  - WET 

FMU(3I 

U 

COEFFICIENT  OF  FRICTION  - ICE 

GRACE 

PERCENT 

SLOPE 

IROAO 

H 

ROAD  TYPE 

itjt 

H 

TERRAIN  UNIT  TYP£ 

1ST 

» 

SOIL  TYPE 

JURE 

a 

URBAN  CODE 

NTU 

tf 

TERRAIN  UNIT  NUMBER 

NTUX 

tt 

SPECIFIC  TERRAIN  UNIT  NUMBER 

MONTH 

H 

MONTH  (1  THROUGH  12» 

RAOC 

FEET 

RADIUS  OF  CURVATURE 

RD 

FEET 

UiSiBILITY  CISTANCE 

RDAlU) 

FEET 

WTSIBILITY  CISTANCE  PER  MONTH 

RDFCG 

FEET 

WEATHER  RECOGNITION  DISTANCE 

RCICdl 

RCI 

SOIL  STRENGHT  - DRY 

RCIC(2» 

RCI 

SOIL  STRENGHT  - AVERAGE 

RCIC( 3) 

RCI 

SOIL  strength  - WET 

RCICI41 

RCI 

SOIL  strength  - WET, WET 

SURfF 

n 

RCAC  SURFACE  ROUGHNESS  FLAG 

VAR  lABLE 

OECLARATiCN 

REAL 

RCIC 

REAL 

RCURV 

( U » 

REAL 

RDA 

i 12* 

REAL 

FMU 

( 3* 

REAL 

VCURV 

4 4,1111 

INTEGER 

RDATA 

I Ul 
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C 

C 

C 


c 


c 


c 


c 


INTEGER  SEARCh 


3.  ALGCRITHM 

A.  AASHO  TABLE  RADIMS  OF  CURVATURE  FT 

RCURVdl 

RCURVI2T  a|Sl0. 

RCURVO)  =1146. 

RCURVUI  = fil9^ 

RCURViSJ  = 637. 

RCURVI6J  = 458. 

RCURV(71  = 321, 

RCURV<8»  =229.. 

RCURV<9I  = 144. 

RCURVUiSI  = 115. 

RCURVnil  = 82. 

0.  AASHO  TABLE  SPEEfi  LIMIT  SUPERHlGHWAVS  MPH 
VCURVd.ll  sl£0. 

VCURV<lf2l  =70. 

VCURV4  1,3I  .=66). 

VCURV<1,«4T  =54. 

VCURVd.SI  =48^ 

VCURVd*6T  *41.^ 

VCURVd*7l,  =34. 

VCURV41f8F  =29. 

VCURV(1,9I  =25. 

VCURVU  ,10)  =19. 

VCURVd#llJ  =13. 

C.  AASHO  table  SPEED  LIMIT  SECCNOARY  ROADS  MPH 

VCURV<3,1),  .=70. 

VCURV(3,2».  =60.: 

VCURV(3,3I  =58. 

VCURV(3,4I  =50. 

VCURV(3#5)  =43. 

VCURV(3,6)  =36. 

VCURVI3,7I  =31. 

VCURV(3,8L  =26. 

VCURV(3,Y),  =23. 

VCURV(3,10»  =19. 

VCURV(3,1U  =13. 

D.  AASHO  TABLE  SPEED  LIMIT  TRAILS  MPH 

VCURVI4,l»  =55. 

VCURV(4»2)  =49. 

VCURVI4,3)'  =44.- 
VCURV(4,41  =42. 

VCURVI4,5I'  =39. 

VCURV(4,6I  =34. 

VCURV<4,71  =29. 

VCURV(4,8)  =23. 

VCURV14,91  =19. 

VCURVU, 10)  =14. 

VCURVI4,11I  =10. 

E.  AASHO  TABLE  SPEED  LIMIT  PRIMARY  ROADS  MPH 
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\/CURV(2»ll  - WCUPV(lvl) 

VCURV(2,2»-  = VCaRV41,2l 

VCURV(2t3A  = VCURV(iti) 

VCURV(2»AI'  = VCURVii.At. 

VCURV(2.5I  = VCUBVU#5I 
VCURV(2»6I  s VCURV<1«6I 
VCURV(2  ,7)  -=  VCUPVU,7> 

VCURV<2,8>  » VCURVdtSi 
VCURV(2»9)  ~ VCURVdf9) 

VCURV(2,10}  = VCUKV(lrl0)- 
VCURVI  2.111  = VCURVI  1,  111 

6k)00  CONTINUE 

lEQF  = 0 

REAO<LUN2»60i6l-  KTU.  IRQ  AC.  1ST » lORB  .kOATA,  OIST 
bee  FORMATi,I5,3I2.,l  UA.FS.AI 

iF(EOF(LUN21  .EQ.  01  GO  TO  «020 
lEOF  = 1 
GO  TO  700« 

6020  RCICdl  = RCATAdl 

RCIC(  2»  = RCATAdl 

RCICO)  > RCATA<3» 

RCICUl  = RCATAUI 

GRADE  = RCATA45I 

ROAi  » RCATAI&I 

RCA2  s RCATAOl 

RDA3  = RC4TA18I 

R0A4  > RCITA(9i 

ACTRMS  = RCATAa0> 

CURVV  = RCATAdll 

CONTINUE 

IFdSEARCH  .EQ.  11  »AN0.  CNTUX  .NE*  NTJll-  GO  10  6000 
ROAI n = RDAl 
RCAdI  RCAl 
R0A(3I  = RCAl 
R0A<4I  = RCA2 
R0A(5I  = RCA2 
R0A(6I  = RCA2 
R0A(7»  = RCA3 

R0A(8)  = RCA3 

RDA(9I  = RDA3 
ROA(I0)  - RCA4 
RDAdll  = RCA4 
hOAfl2  > = RCA4 
ACTRMS  = ACTRRS/10» 

ELEV  = 0. 

EANG  = 10. 

FMUUI  = 0.75 
FMU(2I  = 0.35 
FMU(3»  = 0.1 
ITUT  = IfiCAC  10 
SURFF  = 1. 

IF(  ITUT  ,EQ.  131  SURFF  = 2. 
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6030 

6060 

6070 

7000 


C 

C 


3005 


NVASHO  = 11 

IFIITUT  -EQ.  IXA  RDR0«  - 1000. 

IFUTUT  .EQ.  12)  RCRCAO  - 500.: 
iFdTUT  »£C.  13)  ROROAO  = 250« 

IFIlTlil  .EQ.  14)  RGROAO  - 150. 

RD  = AMINK  ROAfiiGNTH)  ,ROFQG,RC!fiOAOI 
IFICURVV  .GT.  VCURV(  IRCAOvD)  GO  TO  6060 

IFICURVV  .LT,  VCURVilROAC*  NVASHO)!  GO  TO  6070 
DO  6030  NV-2*NVASHO 

TFICURV^  .LiT.  VCURV(  lftGAO,NV) ) GO  TO  6030 

RAC£  = RCURV(NV)  ♦ ICURVV  - VCURVUROAD,  NV  I )• 

* <RCURV4NV)  - RCURVINV-II  ) / 

+ I VCURVI IRQ AO«NV)  - VCURVi IROAD, NV-1  I) 

GO  TO  7000 
CONTINUE 
GO  TO  7000 

RADC  = RCURVn  ) A-  ICURVV  - VCURVUROAD,  1 ) )♦ 

«■  (RCURVN  1!  - RCURV4  2)!/ 

* (VCURVI^RQAD*!  ) - VCURVI  IROAO« 2)  J 
GO  TO  7000 

RAOC  = RCURV0NVASHG)  * ICURVV  VCURVI  IROAO, NVASHO)  16 
4-  I RCURVINVASFC)  - RCURV INV  ASHO-D  ) / 

* ( VCURVilROAC,  NVASHO)  - VCURVUROAD,  NVASHO~l ) I 
CONTINUE 

RETURN 

END 

SUBROUTINE  TPP 


♦ 

( AA 

,ACTRMS 

, ARE^Il 

fjCl 

*ECF 

.ELEV 

, GAMMA 

• GRADE 

• lOBS 

,iS£ASN 

, ISNCJ 

,IST 

riTUTI 

,NI 

,0  AM 

• OBAA 

f 

rOBH 

,06L 

, OBHINU 

,06S 

• OBU 

tODIA 

fPHi 

,RAOC 

* 

,RC1 

,RCIC 

«R0 

#S 

.TANPHI  .THETA 

• HA 

rZSNGW  ) 

TERRAIN  PREPROCESSOR 


VARIABLE 

DECLARATICN 

REAL 

RCIC 

1 4A 

REAL 

S 

i,9) 

REAL 

THETA 

iSh 

ALGCRITHM 

A.  UNITS  CONVERSION 

IF  (I  TUT  .6E.  11)  GO  TO  300  5 
I08S=  0 

IFi  CBS  .GE.  197,0  ) ICBS  » 1 
IFi  AA  «GE.  179.  XANC.’  AA  .LE.  181.  ) lOBS  - 1 
CBL  = 12, 6081 
CBS  = 12.*08S 
CBW  = 12.*0BW 
RD  = 12  .*R  D 
RADC=  12.*RADC 
TFUTUT  .GE.  ID  GO  TO  3015 
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3010 

C 

3015 

C 

C 

c 

c 

c 


3016 

3017 

3018 


3020 


3030 

C 

c 

30A0 

C 

3050 


CO  3010  1=1, M 

S(H  = 12.*SM3 
CONTINUE 

B.  SLOPE  ANGLE 

THETAdI  = ATANI611ACE/100.* 

THETA(2i  = 0.0 
THETAU*  = -THETAili 

C.  CONE  INDEX 

Cl  = RCICIISEASNA 

D.  RATING  CONE  INDEX 
PCI  = Cl 

E.  ELEVATION  CGRRECZlQN  FACTOR 
ECF  = 1.>.04«ELEV^L000. 

IFUTUT  ,GE.  Ill  60  TO  3030 

F.  OBSTACLE  APPRGACh  ANGLE 
IFdOBS  .EO.  II  8G  TO  3020 
CBAA  = AA*3.iAltS8265yi60. 

G.  OBSTACLE  GECPETFX  VARIABLES 
IF(AA  .GT.  160.1  60  TO  3017 

IFtf(0Bk/2.l  .61.  <0eH*ABSIC0SI06AAI/SlN(0BAAIIIt 
GO  TO  3014 

OBW  = 2.PflfiH*ABSICOSfOBAAI/SINj[OBAAl  I 

OBMINW  = OBW  - 2’.*CeH*AeS{COS(OBAAI/SIN<OBAAII 

WA  = CB4 

GO  TO  3018 
CBNINW  = CBM 

NA  = OBW  2iAQBH*AaS(COS10BAAl/SiNIOBAAII 
AREAO  = 3.14.1.|9a65*0flS*08S/4,* 

OAW  = 2«*<Cei  * WAI/3.  14159245 
GDI  A = IGBL*SBL  * WA*WAA**0.5 
GO  TO  3030 
CONTINUE 
RA  = 0.0 
ODIA  - 0.0 
OAW  = 0.0 
AREAO  = 0.0 
CONTINUE 

H.  SNOW  MACHINE 

IFI ITUT  .EQ.  21  0C  TO  3060 
IF! I SNOW  .EQ.  01  GO  TO  3060 
1ST  = 4 

TANPHI  = SINlRfcll/^CCSiPHIl 
OBSTACLE  ATTENUATION 

IFIIOBAA  .6T.  3.141592651  ..OR.  41IUT  '.GE.  1111  GO  TO  3040 
OBH  = C6H>^SNCW«GANHAy0.:8 
CONTINUE 

SURFACE  RCUGHNESS  ATTENUATION 
IF4ZSN0W  .LT.  2.06ACTRHSI  GO  TO  3050 

ACTRMS  = AOTRMS*(  1 . 0-4  1 .B-GAMHAyB, 4li  I 
GO  TO  3060 
CONTINUE 

ACTRMS  = ACTRMS* U --.5*( l*-GAMMA/-4l*iZSN0W/ACTRMSI I 
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3060 


C 

C 

c 

c 

c 

c 


c 

c 

c 


c 

3010 

c 


c 

3020 

C 

C 


C 

C 

3030 


C 


CONTINUE 

RETURN 

END 

SUBROUTINE  IVI 


+ I ADO 
^ .NEVERO 

4-  fODIA 

4-  .WI  } 

,ADT 

,NI 

,PAV 

.AREAS  .CL 
,CAW  ,OBAA 

>PWTE  .S 

..EWDTH 
.06H 
• SO 

• lOfiS 

.OBL 

.TOEN 

. lOST 

.OBS 

fWA 

»1S 

• OBSE 

• WDTK 

EFFECTIVE 

OBSTACLE  SPACING  AND 

SPEED  REDUCTION 

FACTORS 

DUE 

TO  VEGETATION  ANO/GR  CBSTACLE  AVQICANCE 


VARIABLE 

OECLARATICK 

REAL 

ADT 

15* 

INTEGER 

STEM 

INTEGER 

IS 

4 9* 

REAL 

PAV 

19* 

REAL 

S 

<5* 

REAL 

SD 

19* 

REAL 

TOEN 

iS* 

3.  ALGCR4THM 
NEVERO  = 0 

A.  CBSTACLE  SPACEIKfi  AND  STUMP/BOULCER  INTERFERENCE  CHECK 
IFIIQBS  .NE.  IT  GO  TO  3010 

1.  PATCH  BARE  Cf  OBSTACLES 
NEVERO  « 2 

ADO  > 0. 

GO  TO  3070 

2.  PATCH  CONTAINS  OBSTACLES 
CONTINUE 

IFIIOST  ,NE.  2»  GO  TO  3020 

A.  OBSTACLE  ARE  UNAVGISAeLE,  UNABLE  TO  MANEUVER 

OBSE  = eas 

ADO  = lae. 

GO  TO  3070 

B.  OBSTCLE  ARB  POTENT  lALV  AVOIDABLE 

IFtOOlA  WIf  GO  TC  3030 

1.  OBSTACif  IS  MIOER  TRAN  MINIMUM  WIDTH 
+ BETWEEN  RUNNING  GEAR  ILEMENTS, 

EWDTh  = WOTH*CAW 
OBSE  s AREAO/EWDTI- 
GO  TO  3J60 

2.  OBSTACLE  NARROWER  THAN  THE  MINIMUM  WlOTH 
* BETWEEN  RUNNING  GEAR  iLEMENTS. 

CONTINUE 

EWQTH  » PWTE+CAW 

OBSE  = AREAO/EUOTH 

IF(  CBAA  .GE.  3«1A159265  I GO  TO  3050 
A*  CBST4CL6  IS  CONVEX.  I BOULDER/ STUM PI 
IFIICL-OBHI  .GT,  0«l  GO  TO  30^0 
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C 


C 

30A8 

C 

3050 

C 

3060 


C 

3070 


3080 

3090 

3100 

C 

3110 

3130 

3140 

3150 
31 1>0 
C 

3210 

3240 

C 


1.  BILLY  HANGUP 
MV  ERG  a 1 

EMOTF  a WDTN*OAH 
CJSE  a AREAO/EMCTh 

2.  NO  BELLY  INTERFERENCE 
CtAT  I.NU  E 

B.  CBSTiCLE  IS  CONCAVE.  ITRENCH/OEPRESS ION ) 
CGNTINUE 

&.  AREA  CENIEC  CUE  10  AVOIDING  OBSTACLES.  lADOl 
CONTINUE 

ADO  a l00.4(CBL«tfA<!(OBL4iWAI*NOTH*MDTHPMOTH*3«14159265/4 
/I  0BSE*0BSE*3.L4l59245/4.  I 
C.  VEGETATION  DE^S^Ilr 
CONTINUE 
MA  a NI-1 
MB  a NUl 
CO  3090  Ial,NlA 

IFllSdl  .NE.  H GO  TO  3080 
TOEN(l)a0. 

GO  TC  30910 

TOEN(I)  a U.i<3.iAlS9265l*IlJ/SIII«iP2-U/SU»li*»2l 

continue 

IFdSINII  .NE.  11  GO  TC  3100 
TDENI  NI»  = B. 

GO  TO  3110 

TDEN(NII  ^ 4./4J*14159265*S4NIl<**2» 

TOENINIBI  a 0.0 

C.  AREA  DENIED  BY  VEGETATICN,  PAVlU 
CONT  INUE 
CO  3160  lal.M 
SUMA  a 0. 

DO  3130  STEN*I.M 

SUMA  a SUf>A*TOENlSTEMI 
CONTINUE 

IFISUMA  .NE.  441  GO  TO  3140 
PAVU)  a e. 

GO  TC  3160 

continue 

SUMB  a 0. 

DO  3150  STENa&.NI 

SUMB  a SUI»B>SO<STEMI*<TCEN(STEMI 
CONTINUE 

PAVd  lal0  0,44415UMB/SUMA*hOTH»/S<I  MP*2 
CONTINUE 
PAVINIMI  a 0- 

E.  TOTAL  AREA  CEMEO  DUE  TO  OBSTACLES  AND  VEGETATION 
CONTINUE 

CO  3240  lal^MB 

ADT( IlaA0Q*PAV4 1 !»< 1 00«- AOOl/ 100. 

CONTINUE 

F.  IS  THERE  ANY  PENALTY  FCP  OBSTACLE  AVOICANCE 
CO  3250  lal.MB 
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3250 

3260 


C 

C 

C 

c 

c 

c 


c 

c 


c 

3013 


C 

:>020 


C 

c 


c 

30  30 


C 

3040 


IFIAOTd)  .NE«  PAVUn  GQ  TO  3260 
CONTINUE 
NEVERO  =2 
CONTINUE 
RETURN 

END 

SUBROUTINE  IV2 


♦ (CL 

»DAREA 

, CRAFI 

tFOROC 

» GRADE 

, IFLOAT 

,IOBS 

,IST 

,ITUT 

,JPSI 

• NQGCWO 

,NQPF 

»NMR 

,PWfE 

fSRFV 

• VSEIi 

#VSS 

, WO 

,kOPTH 

,WOTH 

rWRAT 

« MR AT  10 

tWRFORD 

» 

— — — -t  — — — »r-  — — -f»  •m  * “ — 

LANO/MARSH  QPERATiRG  FACTORS 


1.  VARIABLE  DECLARATIC6 
REAL  SRFV  <9*- 

REAL  WOPTH  1241 

REAL  NRAT  (241 

3.  ALGORITHM 

A.  SET  OPERATION  TV fiE 
NOGOWD  = 0 

IFdTUT  .EQ-  11  fiO  TO  3010 
IF(  1ST  .EG.  AT  QC  TO  3010 
GO  TO  3020 

1.  DRY  LAND  GPERATICN 
CONTINUE 

IFLOAT  = 0 

WRATIO  s 1,0 
DARE  A s 0.0 
GQ  TO  2100 

2,  MARSH  OPERATION 
CONTINUE 

ICBS  = I 
GRADE  = 0.0 

IFIWD  .LE.  ffOBDDI  GO  TO  30A0 

A.  WATER  TC  CIEP  TO  FORD 

IF (CRAFT  ,NE,  0.0>  GO  TO  3030 

1.  WATER  TOO  DEEP  FOR  OPERATION 
NOGGWO  ^ i 

VSEL  4 0.0 
RETURN 

2.  VEHICLE  FULLY  FLOATING 
CONTINUE 

IFLGAT  « 0 

VSEL  5 VSS*SRFV12» 

RETURN 

B.  VEHICLE  IS  FORDING 
CONTINUE 

IFLOAT  = 1 

IF(WD  .GT.  NOPTHIin  GO  TO  3050 

WRATIC  sA  i.a^WDOI  WRATH  1-1.0  l/WOPTH4l> 
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GC  TC  3<i90 

305*^  CONTINUE 

00  3080  N=2«NWR 

IF(taD  .AT.  WDPTHINII  GO  TO  3070 

taRATle  = WPATIN*1»*4WRAT(NI’-0RATIN*1)I* 
♦ (WD-WCPTHIN-D  >/<  WDPTJIlNi-HCPTHC  N-lU 

GO  W 3090 

30  7iil  CCNTiNtiB 

3080  CONTINUE 

WRATIO  = kRATINWRI-»-(WRFOftO*WRAT{N0Rn« 

^ (WD-WCPTH4NWRI  l/IFGRC6-WCPTh<NWRil 
3090  CONTINUE 

CAREA  > 2^*PUTE«W0 

IFIkD  .GT.  CL  I OAREA=liDTh*»(WD-CLl*2.0*PHTE*CL 
2100  CONTINUE 

C 8.  TIRE  PRESSURE  INDEX 

IF(NaPP  .NE.  01-  GO  TO  2110 


JPSI  = 

2 

TFI 1ST 

.EO. 

1* 

JPSI 

= 1 

IFdST 

.EC. 

3A 

JPSI 

= 1 

IFdST 

• EC. 

JPSI 

= 1 

!FI  1ST 

• EC. 

6R 

JPSI 

= 1 

GO  TO 

3120 

2110  CONTINUE 

JPSI  = NQFP 
3120  CONTINUE 

RETURN 

END 

SUBROUTINE  IV3 


♦ 

(CHARLN 

,C1 

» CONES 

.CPFFG 

• ClAM 

•OOWPB 

• ORAT 

•GAHNA 

,GCA 

♦ IB 

» 10 

»IP 

• 1ST 

rJPSI 

• LUNl 

• NANBLY 

*■ 

,NPAD 

*NSLIP 

• NVEF 

iNWHL 

• PCI 

,RTO0PB 

fRTOWT 

•SECiW 

* 

,TANPHI 

,TRAKLN 

f TRAKWC 

•VCIFG 

tVClHUK 

• UGHT 

• WRATIO 

•■ZSNQW  1 

C “ r-**“**-r  « «•••■••« 

C PULL  AND  RESISTANCE  CCfFFICIENTS 


variable 

DECLARATICN 

REAL 

b 

REAL 

CHARLN 

REAL 

Cl 

REAL 

CONES 

REAL 

CPFFG 

( 00*3) 

HEAL 

0 

REAL 

01  AW 

( 20) 

REAL 

OOmCO 

REAL 

□owes 

REAL 

OOWPB 

i 2ti 

REAL 

DOWS 

REAL 

OR  AT. 

(2^3) 

REAL 

G 
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REAL 

GAMMA 

REAL 

GCA 

1 2,0«3) 

INTEGER 

I 

INTEGER 

IB 

1201 

INTEGER 

ID 

1241 

INTEGER 

IP 

1 241 

INTEGER 

1ST 

INTEGER 

JPSI 

INT EGER 

KiV3 

INTEGER 

LUM 

INTEGER 

NAMBLY 

INTEGER 

NPAO 

INTEGER 

NSLIP 

INTEGER 

NVEH 

<241 

INT  EGER 

NUHL 

I 241 

REAL 

PID 

REAL 

PIT 

REAL 

RCI 

REAL 

RCIC 

REAL 

RCIS 

REAL 

RCIX 

REAL 

RT 

REAL 

RT0WP8 

120) 

REAL 

RT01«T 

i 2fl 

REAL 

SECTW 

f 2 0} 

REAL 

TANPHI 

REAL 

TOWMAX 

REAL 

TRAKLN 

(241 

REAL 

TRAKWC 

( 241 

REAL 

VCIFG 

(24*31 

REAL 

VCIMUK 

( 241 

REAL 

W 

REAL 

WGHT 

(241 

REAL 

WRATI  C 

REAL 

XK 

REAL 

XKDELT 

REAL 

XN 

REAL 

XNVEH 

REAL 

ZSNOW 

DETERMINE 

SOIL  TYPE 

IF(  1ST  .EO.  i»  GC  T«3  31410 

IFl  1ST  .EQ.  2}  GC  TG  3600 

IF(  1ST  .EQ.  3»  GQ  TO  3700 

IFUST  .EQ.  41  GO  1€  3B00 

IFdST  .EQ.  61.  GO  TO  3100 

STOP  6 

FINE  GR/ilNED  SOIL  FUitL  AND  RESISTANCE  COEFFICIENTS 
CONTINUE 

00  3414  I=1,NANBLY#1 

RC-IX=RCI-VCIFG(  liUPSll 

IFKIPIIl  .EG.  It  40R.  {IBUl  *EC.  U1  GO  TO  3132 
RTOMPBIl)  =020 
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DOWPB  4n  = 
CALL  FGSTB  ( 

2«0 

OIAW  ( 

.1  V 

• 

,DRAT  < 

i . 

JPSI 

1 

♦ 

»1B  < 

J \ 

* 

.IP  i 

i 1 

f 

,NVEH  4 

1 P 

♦ 

.NWHL  ( 

i 1 

¥ 

,RCI 

* 

.RTOWT  ( 

I 1 

f 

.SECTW  4 

i V 

,WGHT  4 

i 1 

¥ 

.WP.ATIO 

♦ 

.LUM  1 

GO  TO  3414 

3132 

CONTINUE 

IF4NSLJP  .NE.  0)  GO 

TO  3134 

CALL  FGSPC  4 

¥ 

CPFFG  4 

J . 

JPSI 

P 

*• 

.0 

,NVEH  4 

1 V 

♦ 

,RCIX  ) 

OQWPBI  I>.=  C 
CALL  FGSPR  4 

¥ 

CPFFG  4 

i . 

JPSI 

1 

¥ 

»NVEH  4 

i 1 

♦ 

,RCIX 

¥ 

.RTOMPE  4 

4 1 

1 

CALL  FGSTR  | 

¥ 

OIAW  4 

1 1 

• 

¥ 

, DRAT  4. 

i . 

JPSI 

1 

¥ 

• IB  ( 

1 F 

¥ 

.IP  4 

a I 

¥ 

,NVEH  4 

f } 

¥ 

.NWHL  4 

i i 

¥ 

,RCI 

¥ 

.RTOWT  4 

i I 

♦ 

.SECTw  4 

1 » 

¥ 

,WGHT  4 

4 1- 

¥ 

.WRATI C 

,LUM  1 

GO  TO  3414 

31  3A 

CONTINUE 

IF4NVEH4IJ  .EG. 

11  GO  TO 

33  06 

C 

A.  TRACKED  SLIPPERY  ROUTINE 

RCIO 

OOWCO  = 

A.55 

IF4  RCIX 

.61. 

20.0 

1 GO  TO  316  8 

CALL  FGSPC 

4 

1- 

CPFFG 

I J 

f JPSI  1 

*■ 

.0 

t- 

, NV  EH 

4 I 

» 
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,RC1X  » 

DOW  FBI  14^0 
CALL  fmPR 


♦ 

CPFFG  i 1 , JPSI  1 

»NVEh  ( I ) 

♦ 

• RCIX 

+ 

tRTGWPE  Ilk  1 

CALL  F.eSTR  I 

*■ 

OIAW  I 1 i 

* 

• ORAT  I I , JPSI  1 

* 

«1B  III 

* 

,iP  1 I 1 

+ 

,NVEh  III 

* 

•NWHL  I 1 1 

+ 

,RCI 

♦ 

.RTOWT  1 I 1 

*■ 

tS&CTW  411 

A 

•WGHT  1 I } 

.WRATIC 

+ 

,LUMI 

GO  TO  .3414 

3168 

CONTINUE 

IFIIST  ..NE^  61  GC  TO  3224 

3174 

IFINSL4e  .NE.  11  GO  TO 
DCWC3  = 0.5 

RCIS  * 2 00.0 

GO  TO  3252 

3182 

IFI  NSLI fi  .KE.  21  GC  TO 
COWCS  - 0.3 

RCIS  = 150.0 

3190 


3198 


j206 


321A 


3222 

322'4 


GO  TO  3252 
I FI  NS  L I fi  .N*E, 
COWCS  = 

PC  IS 
GO  TO 
IF(  NSLi* 

COWCS 
PC  IS 
GO  TO 
IF(  NSLifi 
COWCS 
PC  IS 
GO  TO 
IFI  NSLIS 
COWCS 
RCIS 
GO  TO 
STOP  7 
CONTINUE 
IFIiST  *NE* 

RCIS  = 100,0 
IFINSLIR  -NE, 


31  GC 
= 0-3 

= 200,0 

3252 

• NE-  41  GC 
= 0.1 
= 200,0 
3252 

.KE,  51  GQ 
0.1 
= 300.0 
3252 

.NE.  6)  GC 
= 0.15 

= 500.0 
3252 


1>  GC  TO  3251 


3182 


3190 


TO  3198 


TO  3206 


TO  3214 


TO  3222 


11  6G  TO  3230 


,-88 
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COMCS 

= 0*45 

GO  TQ 

3252 

32  30 

IF ( AS  L i 1 

• NE.  21 

GO 

TO 

3234 

COMCS 

« 0.3 

GO  TG 

3252 

32  34 

IFi  ASLIf 

•NE.  31 

GC 

TO 

3238 

CCWCS 

3 0.2 

GO  TO 

3252 

3238 

IFI  NSLIC 

•AE.  41 

GC 

TO 

3342 

cowcs 

= 0.1 

GC  TQ 

3252 

3242 

IF( ASLIfi 

• NE.  51 

GO 

TO 

3246 

coucs 

« 0.1 

GO  TQ 

3252 

3246 

.IF(  AS  L IB 

. AE . 6 ) 

GC 

TO 

3250 

COWC& 

= 0.15 

GO  TQ 

3262 

3250 

STCf 

3<i  5 1 

CONTINUE 

STCF  10 

3252 

IF(  RCIX  .«E.  RCIS 

1 GO  TO  3282 

XN=ALQGi0<  OQWCO/OQWCS  WALOGl^i  RC1S/RC13  ) 

XK=OCkS*BCIS**XN 

COWS=XK'94<  l./RCIX*«*XN». 

IF{  KPA8<I)  «:EC.  0 I GO  TO 
COUP.B<  l l^OCUS 
CALL  FGSPR  ( 


* 

CPFCB 

i 1 

* 

JPSI 

¥ 

»AVEH 

( I 

1 

¥ 

«RCIX 

¥ 

,RTC0f>B 

< I 

1 

1 

CALL  fGSTR 

( 

¥ 

DIAN 

4 1 

1 

¥ 

.ORAI- 

4 I 

• 

JPSI 

¥ 

flB 

4 I 

1 

* 

.IP 

4 1 

) 

¥ 

fNVEJK 

4 1 

} 

¥ 

• AM  Ft 

4 1 

» 

¥ 

,RC>I 

*■ 

,RTCKT 

4 I 

1 

f 

.SECXW 

1 i 

I 

f 

»WGHX 

4 I 

1 

¥ 

,WRATiC 

¥ 

.LUAll 

GO  TO  3414 

CCATIAUe 

CALL  FC-SSPC 

4 

♦ 

CPFfG  1 

I • 

JPSI  1 

¥ 

.0 

¥ 

.NVEF  4 

I 1 

¥ 

,RCIX  » 

00WPB(  U>0 

.5*1 

D^OCWS 
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32  82 


j2  96 


+ 

¥ 

¥ 

¥ 


GO  TO  341*^ 

IF(  NPAOII  I -EC*  £T 
DQWPGMlsOGMCS 
CALL  FGSPR  4 


GO  TO  3296 


♦ 

CPFFG 

4 

I 

• 

¥ 

,NVEh 

< 

I 

1 

¥ 

,RCIX 

¥ 

.RTGWPE 

4 

1 

t. 

CALL  FGSTfl 

: ( 

¥ 

OIAW 

I 

1 

1 

¥ 

,DRAT 

1 

1 

* 

¥ ■ 

I 

1 

1 

♦ 

flP 

i 

I 

J 

+ 

,NVEF 

i 

1 

1 

f 

• NWHL 

i 

I 

1 

¥ 

,RCI 

¥ 

,RTCkT 

i 

I 

t 

¥ 

,SEGTW 

4 

1 

A 

¥ 

,WGHT 

( 

I 

1 

¥ 

,WR4T1C 

¥ 

,LUM  1 

GO  TO  3414 

CONTINUE 

CALL  FGSPC 

4 

JPSI  » 


JPS!  » 


CPffG  i i , 

,D 

tNVEH  ( I I 
tRCIX  * 

DOWPB( 

CALL  FGSPf  4 


JPSI  I 


D*OOWS  » 


♦ 

CPFFG 

1 i 

t 

¥ 

rNVEH 

I 4 

1 

¥ 

,RCiX 

¥ 

,RTGWPB 

i i 

4 

CALL  FGSTF  1 

¥ 

OIAW 

4 J 

1 

¥ ■ 

,DRAT 

( 4 

f 

¥ 

f IB 

i J 

4 

¥ 

flP 

( 4 

1 

¥ . 

fNVEH 

i .4 

I 

¥ 

,NWHL 

( i 

1 

¥ 

tRCI 

¥ 

,RTOWT 

( i 

1 

¥ 

.SECTW 

4 1 

1 

¥ 

,WGHT 

i i 

t 

JPSI  I 


JPSI  » 


3306 

C 


tWRATlC 
,LUM  I 
GO  TO  341 A 
CONTINUE 

B.  WHEELED  SLiPffRY  ROUTINE 
XKDELT=I  DRATW,  JPSII/0.4 
RCIO=18.'0 


i-0.375 
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DCWCQ=0.A 

IFI  RCIX  «GT«  Zea  I GO  TO  3324 
RCIX=RCIX-J.0 
CALL  FGSPC  I 


4' 

CPffG 

< 1 • JPSl  1 

♦ 

fO 

,NVEh 

(11 

*■ 

»RC  IX 

1 

OOWPBI  1).> 

c 

call  FGSPF  i 

<■ 

CPff^C 

I I , JPSl  1 

f 

,NVEH  ( 

1 1 

♦ 

»RC1X 

t 

fRTCWPB  i 

i 1 1 

CALL  FGSTf  I 

t- 

01  AW 

1 I 1 

» 

,DRAT 

I I .JPSl  1 

*■ 

»IB 

t I 1 

♦ 

.IP 

( I 1 

f 

f NVEH 

1 I 1 

>NMFL 

I > 

*• 

,RCI 

«■ 

,RT CWT 

4 I 1 

4- 

.SECTW 

i 1 A 

4- 

.WGhT 

I I 1 

4 

fWRATlC 

4^ 

.LUMI 

GO  TO  3414 

3324 

CONTINUE 

IF(  1ST  .NE. 

«1  GC  TO  3378 

IFINSL  IP 

.AE.  11  GO  TO  3338 

oowcs 

4 0.35 

RClS 

» 300.0 

GO  TO 

2394 

3338 

IFINSL IP 

.(bE.  il  GO  TO  3346 

OOWCS 

M 0. 254XKCELT 

RCIS 

4 150.0 

GC  TC 

3394 

3346 

IFINSL  IP 

.WE«  31  GO  TO  3354 

OOWCS 

4 0.2»XKOELT 

RCIS 

4 20040 

GO  TC 

3394 

3354 

IFINSL IP 

.NE.  41  GO  TO  3362 

OOWCS 

4 0. 15*^XKCELT 

RCIS 

4 1S0.0 

GO  TC 

3394 

3362 

IFINSL  IP 

.6E.  5 A GO  TO  3370 

OOWCS 

4 0.154XKCELT 

RCIS 

4 150.0 

GO  TO 

3394 

33  70 

IFINSL IP 

.NE.  61  GO  TO  3376 

OOWCS 

4 0.  15 
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BCIS  9 100.0 

GQ  TO  -*194 

3376 

STOP  11 

3378 

CONTINUE 

RCTS=80.0 

IFINSLIP  .NE.  1)  GO  TO  3386 

OOMCS=0.3 

GO  TO  3394 

J3  86 

IfINSLIP  .NE.  4 > 60  TO  3392 

DOttCS=0.1*l|KDELT 

GO  TO  3394 

3392 

continue 

DOWCS  =0.1 

3394 

CONTINUE 

IFIRCIX  .GE.  ftCISF  GC  TO  3408 

XN=ALOGI0X  OGWCO/OOWCS  l/ALQG10(  RCiS/RClO  I 
XK=0CWCS*RC4S*4XN 

OOWPBI II=XX/I  RCIX**XN  1 

CALL  FGSPR  I 

•f 

CPFFG  I 1 .UPSI  1 

.NVEh  I 1 1 

♦ 

, RC IX 

• RTQWPE  (21.  1 

CALL  FGSTF  I 

<■ 

01  AW  I 1 1 

*■ 

•DRAT  1 I , JPSI  » 

+ 

»IB  ( 1 » 

• 

♦ 

♦ 

tip  III 

tNVEK  III 

♦ 

tNWKL  i 1 i 

♦ 

,RCI 

♦ 

.RTCWT  4 1 1 

tSECTW  1 2 > 

tWGFT  I I » 

*• 

tWRATlC 

4- 

tLUM  I 

GO  TO  3414 

3408 

CONTINUE 

OGWPBU)  = OCWCS 

CALL  FGSPR  ( 

f 

CPFFG  < 1 , JPSI  1 

♦ 

rNVEH  ( 1 1 

tRCIX 

4- 

tRTGWPB  1 t % 1 

CALL  FGSTR  < 

t- 

DIAW  < i 1 

<■ 

tORAT  1,  i , JPSI  » 

♦ 

.IB  I 1 1 

•IP  { J I 

♦ 

• NVEH  I 1 

♦ 

• NMHL  (11 

* 

,RCI 

• 
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341 A 

C 

36  <^0 


C 


3610 


*RTOWT  i 1 I 

♦ ,SECTN  I I I 

<•  tWGPT  i 1 3 

*■  ,WRATiC 

^ ,LUMP 

CONTINUE 
GO  TO  3999 

5.  COARSE  GRAINEC  SOU  PULL  AND  RESISTANCE  COEFFICIENTS 
CONTINUE 
G = Cl*. 8645/3. 

DO  3630  1 = 1 ,NAMBLY,,l 

IFiNVEHin  .EQ.;  Ill  GC  TG  3620 
A.  WHEELEC  fillMENT  ALGORITHM 

IFKIPIII  ^EQ.  01  .OR.  IIBIII  .EQ.  011  GO  TO  3610 
RTQWTI  lA  = 0. 

GO  TO  3612 
CONTINUE 

W = UGHTHl/FLQATINWHLI  ll-l 

PIT  = C-*(.4.SECTW{  I)*OIAMUn6«1.5l«>lfLOAT(II**(l./a.l) 
<■  /(  W*  (n.0>DRAT(I«JPS}ll**3.0l*(1.0«SECTU<Il/OlAWUll  1 
RTQWTIIJ  = 0.44-0. 01*PIT 

* *-SQRT(  ( (0.44-0. 0i*F#Tl**21*0.0002*PIT>e408  » 


3612  CONTINUE 

IFKIPIII  .EQ.  01  .ANC.  ilBUl  .iEQ2  01)  GO  TO  3618 
IPIIOMN  .EQ.  1)  GO  TO  3614 
6 = SECTMI II 

6 = MGHT4Il/FLOAT<NWHLf  111 
GO  T6  36J16 

3614  CONTlNUfl 

B > 2.i««5ECTW(II 
M = 2.0«NGHT<  li/FLOAT(NWHL(  111 

36  10  CGNTINUE 

PIC  = «4(IB*01AMlill**1.5l 
PIC  = GtU  B60IAWI  Ill**1.51 
«•  •(ORAT(  I,  JPSn  l/(N*IF4CATn  l**0.511 

0CWF8  lil  = .53-4*5/lPIC»3.7l 
RTCWPBIfl-  = .6-00WPB<ll 
GC  TC  3630 

3618  CONTINUE 

OOMPB  Ul  4 0..0 
RTOMPBI II  4 0.0 
GO  TO  3630 

C e.  TRACKED  ELEMENT  ALGCRITHM 

362  0 CONTINUE 

RTOWTI  1)  =0.0 

IFdlPdl  1*  .AND.  •IIBIil'  .EQ.:  1 FI  GO  TO  3621 

MPITE(LUN1 .1000) 

1000  FORMAT! 

*:  /,37H  there  -is  NG  SCIH  PULL  AND  RESISTANCE, 

♦ /,37H  ALGORITHM  FCfi  TGWEC  TRACKED  ELEMENTS) 

STOP 

3621  CONTINUE 
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3622 

3624 

3626 

3628 

3630 

C 

3700 

371  0 

3712 

3714 

3716 

3718 

3720 

3722 

3724 


PIT  = 0.6#6*i  ITRAKWOin^TRAKLNillPP^'l.S  » 

■ /WGHT(II/2. 

IFIPIT  ^GT.  ^S.l  GO  to  3622 

DOWPBIU  a .121».258*/LOG10(PIT» 

GO  TC  3624 

IFIPIT  .GT#  10a* i GO  TO  3624 
OOWPBIil  = .339  + .109*A4.O€l0IPIT» 

GO  TO  3628 

IF (PIT  *Gfi  1000.)  GO  TO  3626 
OOWPBrn  - •481*.038*ALOG10IPIT> 

GO  TC  362  8 
CONTINUE 

DOWPB  (I. I 4 4595 
CONTINUE 

RTOWPBIll.  ^ ,6  - COWPBM)  ♦ .045 

CONTINUE 
GO  TO  3999 

6.  MUSKEG  PULL  AND  RESISTANCE  CQEPFlClENrS 
CONTINUE 

DO  3728  l = l,NAM8LV,i 
RCLX  = RCI-VCI^<U1M  IT 
IFIRCIX  .GT.  “lUMmi  GO  TO  3710 
RT  = 1. 

GO  TO  3714 

IFIRCIX  .GT.  0.1  GC  TO  3712 
RT  = 1.-.006P4JRCIX<>100.T 
GO  TO  3714 
CONTINUE 

RT  « . 045+2.3475/116. 5*-RCIX» 

IFUIPd)  *EC.  06  .OR.  IIBU)  .EQ.  0TI  GO  TO  3716 

RTQWTUP  = 0. 

RTOWPBUV  = PI 
GO  TO  3720 

IFUIPm  .EC.  IP  .CR.  IIBIIT  .EG.  1H  GO  TO  3718 

RTOWTII P = RT 
RTOWPBIII  = id 
DQWPB(I)  = 444 
GO  TO  3720 
CONTINUE 

RTOWT  : = PI 
RTOMPB^II  = PT 

IFIRCIX  .GT.  -104.1  GO  TO  3722 
DOWPBIIP  = -340 
GO  TO  3726 

IFIRCIX  .GT.  0.0P  GO  TC  3724 

DGWPBi  n = -i4*.ei»4RCIX*100.  » 

GO  TO  3728 
IF 

HNVEHII)  .EG-  01  .ANfi,  I CPFFGl  I,JPSI»  .LT.  4.0)P  GO  TO  3726 
DO  WP  B ( i J = 0 , 3 53  02  25  8 ♦R  Cl  X 

-<  ( { ( .3537*.02258*RC  IXP4P4i.»-I.03071*RC-lXPI*-*.5l 
GO  TO  3728 
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3726 

3728 

C 

38  00 

3 8 05 

3810 

3812 

3813 

361A 

3815 

3816 

381  8 

3819 

3820 
3999 


COWPBI  II  =0,5A6A  ♦J*1091*RCIX 
-(  ((  ( .5A6A*,  109i«>RCl>A**2,  »-I  ,19  2*RC  IX  33  *5  » 

CONTINUE 
GO  TO  3999 

7.  SHALLOW  SNOW  PULL  At<C  RESISTANCE  COEFFICIENTS 
CONTINUE 
XNVEH  = 0.0 
DO  3805  I=l,NAHeLY 

XNVEH  = FLOAT!  hWEHM*  l+XNVEH 
CONTINUE 

DO  3820  1 = 1 .NAMBLYv,! 

IFlNVEHdl  .EQ.  fl*  GC  TC  3814 

RT  = 10i«'(FLCAT(NWHL(J>t*SECTM(*l)yOlAW(lll 
«‘(GAMRA*ZSNOW/CHAPLMi«JFSl»)/XNVEH 

IFKlPd)  .EC4  0)  .OR.  (leni  .EQ.  011  GO  TO  3810 
RTOWT(  I»  ^ 0. 

RTOwPBUI  =»  RT 
GO  TO  38L3 

IFdlPdt  .EC2  1)  .CR.  (ledt  .EQ.  lU  go  to  3612 
RTOWTI I»  « RT 
RTOWPBdl  a 0. 

OOWPBI  IF  ^ 0. 

GO  TG  382« 

CONTINUE 

RTOWT  n»  « RT 
RTQWPBII  F RT 
CONTINUE 

TOHMAX  = TANPHdCOHES*GCA(  X,JPSI»* 

♦ FLQATINWHLU  1 l/WGHT(  If 
OOWPB(  II  = TOWHAX-RT 
GO  TO  3824 
CONTINUE 

RT  = 5.0*GAMPA*44SNCW/CHARLNd,JPSI»-0,15l 
IF(RT  .GE.  0.0><  ^0  TO  3815 
RT  = 0.0 

IFMIPdl  .EC.  0F  .OR.  IIBd)  .EQ.‘  0d  GO  TO  3816 
RTOWT  ( I ) = ii. 

RTOWPBdF  = RX 
GO  TO  3819 

IF((IP(d  .EC.  IT  .OR.  UBdl  .EQ.  IF)  GO  TO  3818 
RTOWT  in  = RJ 
RTOWPBd)  = 0^ 

DOWPB  d>  = 0W 
GO  TO  3820 
CONTINUE 

RTOWT  d»  = FX 
RTOWPBd » = RT 
CONTINUE 

TQWMAX  = TANPFJ*COHES*GCAd,JPSI) /WGHT4  n 
COWPBdl  = TCNR4X-RT 
CONTINUE 
CONTINUE 
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RET  URN 
END 

SUBROUTINE  iV4 

<-  lOOWB  ,OOMP  ,CQMF6  tGCM  .GCMB  «GCMP  ,IB  .IP  . 

* •NAMBLY  ,RTOW6  •RTCVKB  tRTCUNP  »RTayi>  »RTOWPB  .RTOMT  •UGHI  I 

C 

C SUMMED  PULL  AND  RESISTAhCE  CCEFfICIENTS 

c 

C 1.  VARIABLE  DECLARATICN 

REAL  OOWPB  1241 

INTEGER  IB  1241 

INTEGER  IP  (2BI 

REAL  RTCMPB  (201 

REAL  RTOWT  il§t 

REAL  mGHT  1201 

c algorithm 

COMB  = 0.0 

OQMF  ==  0.0 

RTQVsB  = 0.0 

RTOWP  = 0.0 

RTOliNB  = 0.0 

RTQRNP  = 0.0 

DO  3050  I=l,NAMBLV 

IF(GCWP  .EO.  0.0*  GL  TC  3010 

RTOWP  = RTCKfi^-FLCATIIPl  n IPRTOWPBH»*WGHTI  II /GCWP 
OOWP  > COWf*FLOAT(IPUII*OOWPBUI-«WGHT(ll/6CMP 
3010  1F((GCW-GCWP)  .EG.  0..01  GO  TO  3020 

RTO0NP  * RTOWi'P*FLCAT(  1"IP(1>1 

♦ <‘RTOWT(II*mGHT(  II/(GCII-GCWPI 

3020  1F(GCMB  .EO.  0.01  GC  TC  3030 

RTOWB  X RTOMi»FLGATnB(  II'IORTOMPBI  Il*UGHn  II /GCWB 
OOWB  X CCWenFLGATUBtl  »I*C0WPBI  il*WGHTI  II/GCWB 
3030  IF(  ( GCW-GCWBl  .EA.  0.01  GO  TO  3040 

RTOMNB  X RTQRNB+FLOATI 1-164  111 

^ *RTOWI(  U*RGHT(Il/4GCM-GCWP» 

30‘t0  CONTINUE 

3050  continue 

RETURN 
END 


SUBROUTINE  IV5 


( ATF 

, AVGC 

, ETF 

»co 

.CPFCCG 

.CPFCfG 

,CTF 

•OAREA 

f 

.OOWP 

»EANG 

,£CF 

rFA 

.FB 

.FC 

•FORHX 

.GCWB 

•• 

.IFLOAT 

, 1ST 

,ITUT 

,JPSI 

.LOCCIF 

•NAMBLY 

,nfl 

.NGR 

> 

.NTRAV 

,NVEH 

, NVEFC 

• NWHL 

• RACC 

• RTCWP 

•STRACT 

• TFOR 

♦ 

.theta 

, TRACT F 

, VFMAX 

.VG 

• VGV 

• WGHT 

.WRAT13 

•LUNI  ) 

C 

C SLIP  MCOIFIEB  TRACTIVE  EFFORT 

c 
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C 1.  VARIABLE  DECLARATICN 


REAL 

ATF 

I 2i|) 

REAL 

BTF 

( 201 

REAL 

CPFCCG 

13* 

REAL 

CPFCFG 

<3* 

REAL 

CTF 

I 2 SI 

REAL 

FA 

( 20«3t 

REAL 

FATEMF 

(20,3) 

REAL 

FB 

<20«3) 

REAL 

FBTEMf 

( 20*3) 

REAL 

FC 

(20*3) 

REAL 

FCTEMf 

(20*3) 

REAL 

FORMX 

(31 

REAL 

F0UAD5 

( 5i 

REAL 

FTEMP 

( 24, 5 ) 

REAL 

FTEMPC 

( 20,5) 

INTEGER 

NVEH 

(201 

INT  EGER 

NWHL 

(20) 

REAL 

STRACT 

(20*3,3) 

REAL 

THETA 

( 3) 

REAL 

TRACTF 

1 20*51 

REAL 

VFHAX 

1 3) 

REAL 

VG 

(20^3,3  > 

REAL 

VGTEMF 

4 2063,3) 

REAL 

VGV 

(2065) 

REAL 

V0UA05 

(5) 

REAL 

VTEPP 

1 20*5  ) 

REAL 

VTEMPC 

( 20*  5 ) 

REAL 

WGHT 

(20) 

C 3.  ALGORITHH 
FCC  = 0. 

CPFC  = CPFCFG(JPSI» 

IF  H.ST  .60.  2 1 CPFC=C9FCCGI  JPSI» 

IF  (ISI  .EO.  A)  GO  TO  J0e0 

CALL  TFCRCFICF,  CPFUOCliiP*  GCWP«  1ST  » NFL*  NV  EHCt  RTOMP,T  FORrLUNil 
3000  DO  3602  K=l#NTRAV 

COSX  » COSITHETACKIA 

IF  UST  .EQ.  4)  TFOR^IDCUP^RTOWPI^GCUPfWRATIO 
NGl  = 1 

CO  3060  N6=1*N£R 

FATEHP(NG,KI-  * ATFCNG) 

FBTEMPING.KI  4 BTFINGI 
FCTEMPING,KI  ^ CTFiNGI 
OG  3050  Lsl05 

VTEMP(NG»LA  » VGV(NG*LI 
FTEMPING.IA  = TRACTFING*L» 

3050  CONTINUE 

L*1 

00  3060  LI=1*S*2 

VGTEMP(NG«i*MI  s VGVlNG.LII 
L=L+1 

3060  CONTINUE 
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CO  3500  NG=l,NflR 

IFI FT€MP(NGf 1>*ECF  iLT.  TFCRMCCSXI  GO  TO  3300 

IFIFTEMFiNGtfSI'^ECF  .LT.  TfORMCOSXl  GO  TO  3 200 

100 % AT  TOP  SPEED  IN  GEAR 

NGl  = N61H 
FC(NGtKA/«0- 
FBI NGl KA  > 0. 

FAI  NGrK4=TFCR*C0SX 
00  3100  L^lil 

VGIAOtLfKl  =0. 

STRAeTCN€,L#KI=FA(NG,KI 
3100  CONTINUE 

GO  TO  .3J00 

100%  SLIP  AT  OTHER  THAN  TOP  SPEED 

3200  IF  (VTEMP(K4<5I  .EQ-.  VTEMPING*!)  F GO  TO  3260 

FX  = T Ftp* COSX 

CALL  VEfcFCPlFXiFATEMP.fiBTEMPiFCTEMP, 

«■  FX,K,  NGR«VX,VFMAX«V€TEHPJ 

RESET  LCW  POINT  TO  LOWEST  SPEED  THAT  IS  NOT 
100%  SUP 

VTEMPiNG^il  = VX 

FTEMPiKft.lt  » FX/ECF 

XINT  * liVTEMPiNG.SI  - VTEMPI NC,  1 M /h, 

CO  3250  L*2t4 

VTEM  WNG.Lt  = VTEMPiN&,L.-i  I .+  XiNT 
FTEPRiNGiL)  = CTFiNGt*VTEHPING,Lt  •VTEMPtNG.EI  *■ 
*■  BTFING**VTEMPI  NG,L»  fr  ATFiNGt 

250  CQNTlNLil 

GO  TO  3300 

SPEEDS  ECUAt  - INCREMENT  ON  FORCE 

260  FTEMPING.I)  « TFQB«-COSX 

YINT  = iFTEMPINGilt  - FTEMPiNG,  5i  I /A. 

00  333  0 biB2|4 

FTEMPiNft,LI  = FTEMPiNG,L-ll  - YINT 

380  CONTINUE 

COMPUTE  SLIP  fiCP  ALL  FCiNTS  IN  GEAR 

3300  DC  3400  L^l^S 

VX  = VTEMPilNG.LI 
FX  = FTEMfliNG»tl*ECF 
FSL  = FX/CSSXPHRATIO 
YX  = FSL/GCWP  - CF 
IF  (iST  •EC.  4»VX=FX/TF0R 
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CALL  SLIP(CPFC,IST»LCCCIF,NFL,NVEHCfSLlPX,YXI 
VTEMPQ<NG,LI  = VX*( l.-SLiPXL 
WDRAG  ^ ^5^>0eiil*CO*OAREA»VTENPO(NG»L)**2 
IFUTUT  *NE4  lAl  GC  TO  3390 

C 

C DRAG  CORNERING  RESISTANCE  FOR  TRAILS  (WHEELEDI 

C 

FCC  = 0. 

FE  = 1.  - 7,4  95*4RACC/.12-I*EANG 
DO  3 35  0 1>1«NAMBLY 

IFINVEHUI  .LT.  II  GO  TO  3350 

FI  * (<  NGHT<  i l.*COSX«VTEMPO(N6,Ll**2l/ 

*■  mi.l*RAOC>*<*4  12’./17.6/17.  61 

FCC  = <4FE*Fl*FlF/IFLOATiN«HLnil*AVGCn* 

♦ .75/ITFOR/CCWPI  • FCC 

3350  CONTINUE 

33  90  FTERPOING.  LI  = FX  - FLOAT!  IfLOATI  )>WORAG  - FCC 

3A00  CONTINUE 

C 

C COMPUTE  NEN  CQEFFiC lENTS 

C 

IFKNG  .NE.  14  .CR. 

*■  {FTEMPCNGfll  «NE.  FTEMPiNGfStn  60  TO  3410 

FAtNG.K)  = ATFINGI 
FB!NG,KI  - eTF4NG4 
FC(NG,KI  » CTFINGI 
GO  TO  3430 

3410  DO  3420  LaU5 

FQUACSILI  ^ FTEMPC(N6fLI 
VQUA054LI  ^ VTEMPC4N6.LI 
342ki  CONTINUE 

CALL  QUAC54VCiJA05.FCUA05,A«B,CI 
FAING,K1  = A 
FB4NG,K1  = B 
FC(NG,KJ  = C 
3430  L = 1 

DO  3450  Ll=l«5«2 

VG(NG.L«KI  = VTEMPOlNGvLlI 

STRACT{NG«Ji,KI  » FC4NG>K  l«>VGf  NG,  L»  Kl  *VG4  NG»L»K  > *- 
^ FB4NG»KI*VGtNG,LtK«  * FAI  NG«  K) 

L = L^l 

3450  CONTINUE 

3500  CONTINUE 

VFMAX(KI  = VGLNCl.ltKI 
F0RMX4KI  = STRACT4NG1, 1,KI 
3600  continue 

RETURN 

END 

SUBROUTINE  IV6 

^ 4FAT  ,FAT1  , FMT  ,NI  ,PBHT  ,SD  #SOL  ,TDEN 

* ,WDTH  I 

C 


272 


R-2058,  VOLUME  I 

APPENDIX  A - LISTING  CF  FRGGRAM  NRMM 


PAGE  A-100 


C 

C 

c 

c 

c 

c 


c 


3010 


3020 


30  30 


C 

C 

C 

C 

c 

c 


c 


3010 


— — — 1— — fir  - — — •»»» 

resistance  due  TC  VEGE$ATIGN 


1.  variable  OECLARATlCM 


REAL 

FAT 

4 9» 

REAL 

FATl 

I SI 

REAL 

FMT 

ISA 

REAL 

SD 

191 

REAL 

SDL 

{9A 

REAL 

TDEN 

1 94 

REAL 

TFAT 

194 

ALGORITHM 

FAT  III 

= 0.0 

FATIMI 

= 0.0 

FMT  III 

= 0.0 

TFATIll 

= 0.0 

DO  3030 

1=1  ,N1 

lF(TOEN(li  .EC.  ii.01  GC  TO  3020 
FATliI*ll  = 4»./5.83oSOL41l*<i3C 
FMT  (I»l>  = 448.-PBHT/2- r*SDLllJ*««3, 

TFATIim  = 0W0 
DO  3010  K=l,fl 

TFAT(I*li  =5  TFATIIfrH*TO£NlKJ*lJia.0*SDlK»**3 
CONTINUE 

FAT  (Ii-ll  = lJf*TFATn*l»*«OTH 
GO  TO  30.3  0 
CONTINUE 
PATH  1*1 » = 0.0 
FMT  <lfH  = 0*0 
FAT  iim  = FATIJI 
CONTINUE 
RETURN 
END 

SUBROUTINE  IV7 

♦ IFMT  ,GCW  , IMPACT  ,MAXI  ,NI  , PBF  > 

CRIVER-OEPENDENT  VEHICLE  VEGETATICN  OVERRIDE  CHECK 

Tf  f-— — --.f-f 

1.  VARIABLE  OECLARATICAI 
REAL  FMT  1^4 

REAL  IMPACT  IS» 

3.  ALGORITHM 
Nil  = NIH 
DO  3040  1=1, Nil 
IMPACT(I»  = 0 

IFIFNTU*  .LE.  FBF»  GO  TO  3010 
IMPACKiJ  = 1 

IFI  ( FMTtll/GCWl  jtE.  2.1  GO  TO  3020 
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IMPACT* I»  = IMPACT* IA^2. 

3020  1F*IMPACT*1I  2KE.  A.I  GO  TO  3030 

MAXI  = I 

303  0 continue 

30A0  CONTINUE 

RETURN 
END 

SUBROUTINE  IV8 

*■  if  AT  ,FAT1  tGCW  ,GCWNP  tCCWP  tMAXI  ,NTRAV 

,RTOWP  ,STR  .THETA  .TRESIS  .WRATIO  I 

C 

c — - 

C TOTAL  RESISTANCE  BETWEIA  CBSTACLES 

C — — — r>-  — 

c 

c VARIABLE  OECLARATICN 

REAL  FAT  ISA 

REAL  FATl  *,SI 

REAL  STR  <3*9I 

REAL  THETA  * 3> 

REAL  TRESIS  *3.91 

C 3.  ALGCRITHM 

00  3020  K*1  .NTRAV 

CUMMV  = GCWOSIMIHETAtKH 
^ *■(  RT0V>P*GCUP*^RT0WNP9GCMNPT*CCS*TFETA(KIT«>WRATI0 
CO  3010  1>1»PAXI 

TRESISIK.ll  * OUMMY*FAT  *i» 

STR  *K,n  » OUPHY+FATKII 


3310  CONTINUE 

30  20  CONTINUE 

retlrn 

END 

SUBROUTINE  IV9 

* IFA  ,FB  »FC  .FORHX  .MAXI  .NOR  .NI 

> .TRESIS  .VFMAX  , VG  .VSCIL  I 

C 

Q ...... 

C SPEED  LIMITED  BY  RES-ISTANCE  BETWEEN  OBSTACLES 

C 

C 1.  VARIABLE  OECLARATICN 


REAL 

FA 

*i4A«il 

REAL 

FB 

* 20,31 

REAL 

FC 

(24. 3) 

REAL 

FORMX 

* 3A 

REAL 

TRESIS 

*<if9l 

REAL 

VFMAX 

* 31 

REAL 

VG 

* 24*3,01 

REAL 

VSOIL 

I 3,9  > 

C 3.  ALGCRITHM 
M2  = MAXI 
DO  3030  1=1, M2 


PAGE  A-101 


.RTOMNP 


.NTRAV 
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CALL  VELFOR 

*■  ITRESISi  I .li  ,FA»Fe,FGiFCRMX,l,NGR,VSOIL4UII,VFMAX,VG> 

IF(VSQiL(  If  I ) ..Ke»  em0$  GO  TO  3010 
MAXI  = I 

3010  XFINTRAV  .EQ.  II  GO  TO  3020 

CALL  VELfCR 

4-  {TRESIS(2tIt,FA«FBtFCjFCfMX,2fNGRfVS01L42f  II«VFHAX»VG) 

CALL  VELfCR 

> ITRESISUfT)  »FA«FeffC^FQFMXf3f  NGRfVSOILOt  Hf  VFHAX,VG) 

3020  CONTINUE 

3030  CONTINUE 

Ml  = MAXIfcl 
M2  = NI  *1 
DO  3050  I=M1,M2 

VSOIUlfl)  = 0^-2 
IFINTRAV  .EQ.  It-  GC  TO  30A0 
VSClL<2flt  fl.0 
VSOlLISfi)  < 4i.0 
3040  CONTINUE 

3050  CONTINUE 

RETURN 
END 

SUBROUTINE  IV10 

4-  lACTRMS  .LAC  fFAXI.fR  rRMS  «VR|0  fVRlDE  t 
C 

C — •«— 

C SPEED  LIMITED  BY  SURFACE  FCUGHNESS 

c 

C VARIABLE  OECLARATICN 

REAL  RMS  1201 

REAL  VR.IOE  (20«3l 

C 3.  ALGORITHM 

DG  3020  NR=2^MAXIPR 

IFIACTRMS  .GE,  PNSINRtil  GO  TO  3010 

VRiD  = VRIDe<NRrl,LAC»*<  ACTRMS-RMSINR-U  » 

4^  VRICE{NR,LACI-VPIOE«NR-l,LACI  >/<RMS4NRI-RHS<NR-ll  I 
GC  TO  3030 
3010  CONTINUE 

3020  CONTINUE 

VRIC  = VRIDEI  MAXl'PFjiLAO 
30  30  CONTINUE 

RETURN 
END 

SUBROUTINE  IVII 

* lOOWB  fGCW  fCCME  «GCUNB  ^NOGOBF  tNTRAV  fRrOWB  ,RTQIfNB 

,TBF  , THETA  ,iiRATIO  ,XBR  I 

C 

C total  ERAKING  FCRCE  - SCIL/SLOPE/VEHICLE 

c 
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c 1.  variable  CECLARATICN 

REAL  theta  134 

REAL  TBF 

C 3.  ALGCRITHM 

XI  = (RT0WB*GCWe>RTC«NB.*GCii(NBI*WRAT10 
X2  = (DCW6*RTOUBI>CCUB«WRATIC 

TBFill  = GCW*SIN{TheTA(in»WRATlO*Xl*COSITHETAni» 

^ «-AM!Nll  XBR,X2*CCS<THETA(1I  n 
IFINTRAV  .NE.  il  GC  TO  3020 

TF<TBFin  .GE.  0,01  GO  TO  3010 
NOGOBF  = 0 
GO  TO  A000 
3010  CONTINUE 

NOGOBF  = 1 
GO  TO  A000 

3020  CONTINUE 

TBF  <21  = XI  ♦■AMIN1(  X8R,X2I 

TBF(31  = GC>«*SIN(TFETA<34»*WRATiC*Xl«COSiTHETAI  311 

^ *AMINHXBfi»X2*CGS<THEtA<3n  I 

IF{T8F<3»  .GE,  0.0  1 GO  TO  3030 
NOGOBF  = I 
GO  TO  A000 

3030  CONTINUE 

NOGOBF  = 0 

4000  CONTINUE 

REILRN 
END 

SUBROUTINE  IV12 

» IBFMX  ,DCLMAX  ,GCW  ,NTRAV  ,SfTYPC  ,T6F  1 

C 

C PAXIMUP  BRAKING  FORCE  <•  SCiL/SLOPE/VEHICLE/DRIVER 

c 

c 1.  VARIABLE  OECLARATICN 

REAL  BFMX  <34 

REAL  TBF  I 31 

C 3.  ALGCRITHM 

BFMXlll  = AMINl  (OCtKAX*GCW  , TEFI  lN«'SfTypC/i00,» 

IFINTRAV  .EG.  D GC  TC  0010 

eFMX<2l  = AMIMv<OCIlMAX*GCW  , TeF<2l  •'SFTYPC/100.1 
EFMXI3*  = AMIMIBCLPAX*GCM  TeF<3J*SFTYPC/ 100. 1 

34.10  CONTINUE 
RETURN 
END 

SUBROUTINE  1V13 

♦ (BFMX  .EYEHGT  , GCW  .NTRAV  ,RD  , REACT  ,VELV  ,VISHNV  1 

C 

C SPEED  LIMITED  BY  VISIBILITY 

C 

C 


276 


o o o o r-  o n 


R“2j353»  VOLURE  I 

APPENDIX  A - LISTING  OF  fRGC-PAJ* 


PAGE  A- 104 


C 1.  VARIABLE  OECLARATlCh 

REAL  BFMX  I 3» 

REAL  VELV  I 31 

C 3,  ALGORITHM 

DO  3030  K=1,NTRAV 

iFlBFMXfK)  .:GT.  ii.0t  GO  TO  3010 
VELViKI  = 0.e 
GO  TO  3032 
30  in  CONTINUE 

RECO  = RO«EYEi«STy60. 

ACC  = BFRXi KT^385.9/GCW 

C = U REAC1*ACC1**2I+2,0*RECD*ACC 

C = ACC* REACT 

VELVIKI  = -IC-SCPTIDU 

IFIVELViKI  .GE.  MISMKVl  GO  TO  3020 
VELVIKI  = V4SMRV 
302  0 CONTINUE 

3030  CONTINUE 
RETURN 
END 

SUBROUTINE  IV14 

4-  IJPSl  *NT  ,NTRAV  •NVEHC  .VELV  ,VRiD  .VSCIL 
,VTT  » 


SELECTED  SPEED  BETWEEh  OBSTACLES  LIMITED  BY,  VISIBILITY, 
RTOE,  TIRES,  AND  SC1L7SLCPE/VEGET ATION  RESISTANCE. 

1.  VARIABLE  DECLARATION 
REAL  VELV  i3i 

REAL  VSCiL  (3#9> 

REAL  VTIRE  I 3» 

REAL  VTT  1 3*9 1 

C 3.  ALGORITHM 

Nil  = Nl+1 
DC  3030  K=1,NTRAV 
CO  3020  1=1  , Ml 

VI  = .99I4'VS0T[L4K,€I 
IFINVEHC  .EQ.  -IT  GO  TO  30L0 
VTT(K,  II  = 

♦ AMIN14VTIFE( JPSII , Vl>  VRIO,  VELViKlT 
GO  TO  3028 


3010 

CONTINUE 

VTT(K,1I  = 

♦ 

AMINKVl,  VRID,  VELVIRIT 

30  20 

CONTINUE 

3030 

CONTINUE 

RETURN 

END 

SUBROUTINE  JV15 

♦ (AOT  ,NI  ,NTRAV  ,NVEHC  ,PAV  ,VAVOIO  ,V80 


, VTIRE 


,VTTI  » 
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C 

C M*4XIMUM  speed  between  anc  arcuno  obstacles 


c 

C 1.  VARIABLE  OECLARATICN 

REAL  AOT  <9^ 

REAL  PAV  IS* 

REAL  VAVCIG  I3,9) 

REAL  VBO 

REAL  VTT  I 3*9 1 

C 3.  ALGORITHM 

Nil  = NIH 
DC  3200  K=1,NTRAV 
CO  3190  1 = 1, Ml 

VBQ(K,n  = VTT.Ife»ll 
VAVQIOiK,  U=V1TIK,I  I 
IFIVTTIK,!!  «BC.  0.1  GO  tO  3190 
IFiNVEHC  .EC.  1*  GO  TO  3260 
C 

C A.  TRACKED  VEHlCItE  ROUTINE  FOR  MANEUVERING  AROUND 

C AND  BETWEEN  CBSTACLES 

C 

IFIPAVMl  «LE.  3.»  GO  TO  3030 
IFIPAVUI  .GE.  7.1  GO  TO  3010 

S RG=X 4392 .:43« VTT  I I * 1/4.  ) *P  AVU  J 
+ ♦n.*VTTIKf  I»^3.4392-93»/4. 

VBCI  K«i11=ANINll  SMGfVTTiK,  1** 

GO  TC  00  30 

3010  IFlFAV41i  .GT.  52^51  GO  TO  3000 

SMG=ii63.;l  5>  8 .60  3«PAV  ( 1 1 
VBG4M,I»=AMiNllSNG,VTriK,  ID 
GO  TG  3030 

3020  VBUIK, l*=0a 

303kj  IFIAOTU*  4LE.  3.1  GC  TG  3190 

IFIAOTfil  .GE.  7.1  GO  TO  3040 

S MG*I  1 392 . 93 -VTTI K , 1 1 1/4  . » PAOT I I > 

^ t(7.*VTTlK,Ilt-3.*392.93)/4. 

VAVC40I  K,  I I=ANIN1I  SMGtVTTIK,  1 1 I 
GO  TO  3190 

3040  IFIAOTMi  «6T.  32.51  GO  TO  3050 

SMG=Ai53 .15-8  .603*AOT  ( i I 
VAVCiOl  K,I1  = AMIN1ISHG,VTTIK,  III 
GO  TG  3190 

3m>5  0 VAVCiOIKvI  1=0. 

GO  TO  3190 

C 

C B.  WHEELED  VEHICLE  ROUTINE  FOR  MANEUVERING  AROUND 

C AND  BETWEEN  CfiSTACLES 

C 

3060  IFlPAVdl  .LE«  a.J  GO  TO  3090 

IFlPAVni  iGE.  7.4  GO  TO  3070 
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3k!70 


3080 

30%a 


3100 


3110 
31  92 
3200 


S ^<G  = ( d AS«  .33-  VTT  { K , IJ  i/4^^*PAV ( i I 
+ (►4  7.*VTT(K^Ii-3.A450.33T/A. 

VBGIK,  U-AMIN1(  SHGtVTriKrlU 
GO  TO  3fl90 

IFlPAVdl,  •GT.  41^31  GO  TO  3080 
SMG=542ili-13.112APAV{Il 
VBQIK,>iA:AMlNl(  SHG.VTiTlKfll  ) 

GO  TO  3090 
VBO(K, 

IF4AOTMI  *Le.,  3. A GO  TO  3190 
IFUOTdl  ^GE«  7.i  GO  TO  3100 

SMG=I  UiS0#33-VTTtK,Ill/4<»*AOTHI 
+ ♦4  7.*VTT4K,I»’-3**450.33l/4. 

VAVCI04«.,It=APlNl(SMG«VTT4KriAi 
GO  TG  3190 

IF  (ACT  (IT  ,4fiT.  41.31  GO  TO  3110 
SMG=5422ll-l3.il2*.ADT<  11 
VAVCIO-dC^D^APINU  SHG,VTT4K,in 
GO  TO  1190 
VAVOIOIK,  1*~0. 

CONTINUE 

CONTINUE 

RETURN 

END 

SUBROUTINE  IV16 

«•  (AVALS  .CLEAR  , FCM  ,FOMMAX  ,FOO  ,FOOHAX  .HOVALS  ,NANB 

* .NEVERO  .NQHGT  .NMOTH  .OBAA  ,OBH  «OBNINW  .WVALS  » 


OBSTACLE  OVERRIDE  INTERFERENCE  ANC  RESISTANCE 


VAR  lABLE 

DECLARATICN 

REAL 

AVALS 

<141 

REAL 

clear 

4 7014,51 

REAL 

CLR 

REAL 

FOM 

REAL 

FOMMAX 

REAL 

FOG 

(3.#14,SI 

REAL 

FOONAX 

(.7«i34»5l 

REAL 

HOVALS 

<71 

INTEGER 

1 

INTEGER 

II 

INTEGER 

J 

INTEGER 

3J 

INTEGER 

K 

INTEGER 

KK 

INTEGER 

N 

INTEGER 

NANG 

I NT  EGER 

NEVERC 

INTEGER 

NOH6T 

INTEGER 

NWDTH 
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REAL  QBAA 

REAL  OBH 

REAL  OBMINM 

REAL  WVALS  i£* 

C 3,  ALGCRITHM 

IFINEVERQ  .EQ.  0)  GE  TO  3010 
FOM  = i v0 
FQMMAX  = 0.0 
GO  TC  3150 

3010  CONTINUE 

IFKNOHGT  .NE.  U '.JNC.  lOBH  .iCT.  HOVALSIIDI  GO  TO  3020 
1=1 
n = 1 

GO  TO  3050 

3020  continue 

DC  3030  N=2,NOHCT 

IFIOBH  .LE.  hCVAASlNil  GO  TC  30A0 
3030  CONTINUE 

T = NOHGT 
II  = NOHGT 
GO  TO  3050 
3bA0  CONTINUE 

I = N-1 

II  = N 

3050  CONTINUE 

IFKNANG  .NE.  1)  .JNG.  (OBAA  .GT.  AVALSUUF  GO  TO  3060 
J = 1 
JJ  = I 
GO  TO  3090 
3060  CONTINUE 

DO  3070  N=2»NANG 

IFIOBAA  .LE.  AVALSINII  GO  TO  308.0 
3070  CONTINUE 

J = NANG 
JJ  = NANG 
GO  TO  3090 
3080  CONTINUE 

J = N-1 
JJ  = N 

3090  IFKNHOTH  .NE.  H .AND.  KBMINN  .GT.;  MVALSIIU)  GO  TO  3100 

K = 1 
KK  — 1 
GO  TO  3130 
3100  CONTINUE 

DC  3110  N=2,NNDTH 

IFIOBMINN  .LE.  6.WALSINU  GO  TO  3120 
3110  CONTINUE 

K = N«DTH 
KK  = NWOTH 
GO  TO  3130 
3120  CONTINUE 

K = N-l 
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31  id 


KK  = N 
CONTINUE 


*•  ICLR  , CLEAR 

jll 

# J 

^ t 3 J » K 

• NK 

*HOVALS 

* AVALS 

3140 

♦ .yVALS  fOBH 

IFULR  .GE.  0 
NEVERO  = 3 
GO  TO  3150 
CONTINUE 

CALL  03L1NC 

«CBAA 
.01  GC  TO 

.QBMINW 

1 3140 

) 

*■  (FOMMAX  .FOQMAX 

*■  tJJ  tK 

f KK 

.HQVALS 

.AVALS 

*■  .WVALS  fOBH 
CALL  03LINC 

,CBAA 

•OBMINW 

) 

*■  (FCM  ,FQO 

.i 

*11 

*3 

^ * J J » K 

*KK 

tHOVALS 

• AV  ALS 

3150 

*-  .WVALS  tOBH 
CONTINUE 
RETURN 

END 

SUBROUTINE  IV17 

tCBAA 

•QBMINW 

) 

r 

♦ (HVALS  .NEVERO 
*■  .VOLA  tVOOB 

, NHV AAS 

« voces 

• NSVALS 

• MA  I 

• QBH  .OBSE 

U 

c 

c 

DRIVER-*OBP6NOENT 

VEHICLE 

SPEEC  OVER  OBSTACLES 

c 

»SVALS  ,TL 


C 

C 


DECLARATICN 


3^ 


VARIABLE 
real  HVALS 

REAL  SVALS 

REAL  V008 

REAL  voces 

ALGORITHM 
VOLA  = 0.0 
IFi  NEVERO  .NE. 
iF( (OBSE-WAI 


I 2S1 
(2Sl 
i 2iA 
( 25) 


3L10 

3020 

3030 


3040 


0 ) GOTO  3090 
.LI*  TLI  GO  TO  3030 
DO  30  20  NH=2,iHVALS 

iFlOBH  .GTi  HVALSINH)^)  GO  TO  3010 

VOLAB  = VGGBINH-lA#40eH-HVALS)NH-ll» 
<•(  VCOBI  NH I-VOOBI  Nh-1 » HVALSi  NH  »-HVALSA NH-1 » » 

GO  TO  3030 
CONTINUE 
CONTINUE 

VOLAB  = VCCBI  UiVALSI 
CONTINUE 

IFi(08SE-WA»  .LT^  i2^*TLM  GO  TO  3040 
VOLA  = VOLAB 
GO  TO  3090 
CONTINUE 

CO  3060  NS=2,NSVALS 
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IFfOBSE  .GT.  SVALSfNSII  £0  TO  3050 

VOLAS  = vceesl CBSe-SVALS<NS-ll  » 
••  «!{V0UBS  (NSl-VOOBS  (NS-II I /(  SVALS4NSI^SVAiStNS-l»  » 
GO  TO  3070 

3050  CONTINUE 

3060  CONTINUE 

VOLAS  = VOOaSINSVALSF 
3070  continue 

IFUCBSE-WAI  .LT4  TLT  GC  TO  3080 
VOLA  = AHIM.40CLAB,VOLASI- 
GO  TO  3090 

3080  continue 

VOLA  = VOLAS 
30510  CONTINUE 
RETURN 
END 

SUBROUTINE  IV18 


♦ 

(FA 

.FB 

f FC 

#FOH 

•FOMHAX 

• FORMX 

• gcm 

,JPS1 

* 

,HAXi 

,NEVERO 

* NGR 

«NI 

•NTRAV 

.NVEHC 

,OBSE 

,PAV 

*■ 

fTL 

, TRESIS 

.VA 

»VBC 

,VELV 

• VFNAX 

fVG 

»VOLA 

♦ 

,VRID 

, VSQTL 

,VTIfi 

,VXT 

• UA  h 

PEED  CNTO 

AND  OFF 

OBSTACLES 

, VARIABLE  OECLARATICN 

REAL 

FA 

420^31 

REAL 

FB 

4 24«ai 

REAL 

FC 

REAL 

FORMX 

1 3A 

REAL 

PAV 

(91 

REAL 

TRESIS  i 3«91 

REAL 

VA 

12^91 

"real 

VBO 

(3«9I 

REAL 

VELV 

(3» 

REAL 

VFMAX 

4 3» 

REAL 

vg 

424«3,3} 

REAL 

VSCIL 

4 3#9^ 

REAL 

VTIRE 

13F 

REAL 

VTT 

4 3»9h 

REAL 

VXT 

( 3>*9I 

. ALGORITHM 

NI.i=NI  + l 

MAXU=MAXI  H 

IF(NEVERO  .EQ. 

ec  TO  3030 

CO  3020  K=l, 

NTR0W 

DO  3010  I 

=1»M1 

VBO(K, 

11  = 0. 

VA  (K» 

I»,  ^ 0^ 

VXT(K, 

I)  = 0. 

CONTINUE 
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3S2  2 CONTINUE 

GO  TO  3150 

3030  CONTINUE 

IFITL  .LT.  ICBSE'^MAIi  GC  TO  3090 
C A,  MULTIPLE  CBSTACLE  RCUTINE 

00  3080  K-1,MRAV 
00  3060  isi.MAlXl 

RESIST  4 TFESISIK,  1)4-F0M 
CALL  VEtfOP 

«-  4RESI  ST,FA,FB,  FC  • FORf  i%K  rKGF,  VSQ1L4K,  I»<«V  FMAX  ,^G} 

IFINVEKC  «£Q.  >11  GC  TO  3040 
VTTaiK^II  * 

^ AMiNUVSOlLiKrI)  t VRlCiV  ELVl  K I , VT  IREIJ  PSl ) , VOL  A) 

GO  TO  3050 

3040  CONTlNLf 

VTKK^il  = 

AMINUVSOlLtK.II  ,VR10|VELV4Kt,VOLAI 
3050  CONTINUi 

VBQ4K,^4^VTT4K,II 
IF(V604f««I>  .EC.  0.1  GO  TO  3059 
IFINVEFC  .EQ.  II  GC  TO  3 056 
C 

C TRACKEC  vehicle  ROUTINE  FOR  MANEUVERING 

C BETkEEA  OBSTACLES 

C 

IF4FAVI1I  .LE.  3. A GO  TO  305S 

IF1PAV4I)  .GE.  7«l  <60  TO  3051 

SM6=4  ( 392493-ViT(K,1 1 1/4*1 *PAV  C II 

♦ ♦4.7ii*VTT4K*II-3.>392.93»/4. 

VBC4K,II>AMtNltSHGtVTT4K,lli 

GO  TO  3059 

3'^51  lEIPAVlII  .GT.  52. 5i  GO  TO  3052 

SMGa453*l5-8i603*PAV4  II 
VBOIK»II  = AHiNl4SMGrVTT4K»  III 
GC  TC  3059 

3052  VBO<K«II=0. 

G0  TO  3059 
C 

C WHEELEC  VEHICLE  ROUTINE  FOR  MANEUVERING 

C BETAEEA  OBSTACLES 

C 

3056  IF(FAV44A  .LE.  3.1  GO  TO  3059 

IfiPAVMA  .GE.  7.1  GO  TO  3057 

SNG±44450.33>VTTCK«1I  A/4.1, »PAV4  U 

* ♦47.«iVTT4,K,  l4>3.*450.33I/4. 

va64K»II-AMINl4SMGtVTT4K,  HI 

GG  TO  3059 

3057  1F4FAV4IA  .GT.  41.31  GO  TO  3058 

SNG= 542. 11-13. 112*PAV4  H 
VBG(K«I  l=AMINi{SNG«VTT(K,  HI 
GB  TG  3059 

3058  VBQ(li«ll»0. 
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3059 
306  0 

3070 

3060 

C 

30‘'0 


3100 


Jil0 

3120 
31  30 

3140 
31  50 


3160 
31  70 


VA  lK,  iMVBO(  K»II 
VXTiK,  l*aVBOtK,H 
CONTINUE 

00  3070  l>NJkXli,Nll 
VA  «K,II  = 0. 

VXTiKrI-*  = 0. 

VB0lK,I>  = 0- 
CONTINUE 
CONTINUE 
GO  TO  3150 

B.  SINGLE  OBSTACLE  PCUTINE 
CONTINUE 

DU  3140  K = l^TRAV 

FORRQ  = T FIS  I SIX,  II  ♦ fOM 
DO  3130  I ^ I, MAXI 

VA{K,ll  s AMINKVBCIK^I)  •VOLA) 

CALL  FCRVEL 

(F.FAfFB, FC«FORMX*K«N6RrVA4  K • 1 1 » V FN AX.VGI 
FCRCEF  s*  FORRQ-F 
IFIFCRCiF  .GT.  0« I GO  TO  3100 
VXTift,ll  s VA(K,I) 

GC  TG  3130 
CONTINUI 

VBSC  = WAI  K,.IM»2>FORCEF«(MA*TL>*3S5.9/GCW 
IFIVBSC  .GT»  0.1  GO  TO  3120 
IF 

((FQRMX(K»-TRESIS(K,1A-F0MMAXI  -CE.  0.1  GO  TO  3110 

VXT(K»II  = 0. 

VA  <K«II  = 0« 

GO  TC  3130 
CONTINUE 
CALL  V ELF OR 

( (TRESIS1K,1I»F0MMAX)  «fA*FB»FC*FGFNX»K.,NGRrVXT4K,  IltVFMAXv'VGI 

VA(X«II  = VXTIK,I»< 

GO  TQ  3130 
CONTIN4JS 

VXTIK,IA  = SO-RKVBSCF 
CONTINUE 

□ 0 3140  I 4 MAXI  1, Nil 
VXTlKrll  = 0. 

VAIK^II  = 0.- 
VBC  IK*JI  = 0. 

CONT  INUE 
CONTINUE 

DC  3170  K-1,NIRAV 
DO  3160  I^l.NAXl 

IF(  VAI«!«li  .GT.  VeOIK/iU  VA(K,  !>  =VBOIK,  II 
IFIVXT4X^II  .GT.  VA«K,II*N  VXTCK,II=  VACK.II 

continue 

CONTINUE 

RETURN 

END 
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SUBROUTINE  IV19 


4- 

(BFMX 

»FA 

,FB 

,fC 

,fohmax 

,FORMX 

• GCW 

,LUN1 

+ 

.NEVEPQ 

,NGR 

• M 

,NTRAV 

• CBSE 

• RHK 

fSTRACT 

,TL 

4 

, TRESIS 

. VA 

,VBC 

,VFNAX 

,VG 

,VOVER 

,VXT 

,WA  1 

AVERAGE  PATCH  SPEED  ACCEL  ERAT  ING/ OECEUERATING  BETWEEN 
obstacles  and  CROSSING  OBSTACLES 


c 


301  0 
3020 


C 

C 


3040 

C 

c 


1.'  VARIABLE  OECLARATlCIi 


REAL 

BFMX 

I 34 

REAL 

FA 

<2.0*  3 1 

REAL 

FB 

I 2J«3I 

REAL 

FC 

( 20*  31 

REAL 

FORHX 

i3* 

REAL 

RMX 

REAL 

STRACT 

i 20«3,3N 

REAL 

TRESIS 

( 3w9) 

REAL 

VA 

i 3^91 

REAL 

VBO 

(3  #91 

REAL 

VFMAX 

4.  3 4 

REAL 

VG 

t 2J*3«3I 

REAL 

VOVER 

<3.#9# 

REAL 

VXT 

I 3 #9 1 

3.  ALGORITHM 

Ml 

= NI+1 

CO 

3020  K - 1, 

NTfliAV 

DO  3010  I - 10NI1 
VOVER<K#il  -=  0* 
CONTINUE 


CONTINUE 

IF(NEVERQ  .NE,  il  GO  TO  4000 
CONT  INUE 
VM  = GCW/385.9 
00  3150  K = 1,NTRAV 
DO  il40  I = l^lNTl 

DETER  NINE  If  OBSTACLE  EXIT  SPEED-*  iS  SPEED 
»■  BETWEEN  OBSTACLES,  IF  SC  IT  IS  -VOVER* 

lfIVAlK,l>  .EC.  0.  .ANC.  VXTIK,!)  .EQ.  0,1 

*•  GO  TO  314  0 

IFIVBG(K,I4  ,6T.  VXTiK,I»A  GO  TO  3040 
VQVERIKfil  = VXT(K,IA 
GO  TO  3140 
CONTINUE 

DETERMINE  if  THERE  IS  ENOUGH  DISTANCE 
f BETWEEN  OBSTACLES  TO  ACCELERATE  TO  OBSTACLE  APPROACH  SPEED. 
IFiVXTiK,!*  ,GE.  VAIK.IRI  GO  TO  3070 
CALL  ACCEL 

«•  ( F A , F B , FC , GC  W , I * K , N G F 4iNG  R,  NV  2F  LG  , RMX  , STR  ACT  , 

4 TA,TRESIS,VXTIK»IltVA4K,iIt*V2F,V6,XAtLUNl» 

IF 
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I-  ((XA  ^LE.  { OBSE-WA-TLAF  .and.  <NV2FLG  -eg.  en  go  to  3060 

OUM)ll\(  = TRESISIK^IKFOMMAX 
IP(fORHX(Kl  ^LT.  OUHMVI  GO  TO  3050 
CALL  V EL FOR 

* (OUMPY»FA.FB,FCtFCRPXtK«NGR»VQVER(K«J)«VFMAX«VG} 

!£jVCVEPIK,IF  •GE.  VXTIK,  1)1  GO  TO  3160 
VQVERIKrll  > VXT<K,‘tl 
GO  TO  314  0 

3050  CONTINUE 

VCVERIK,!)  - 0. 

GO  TO  il40 

3060  CONTINUE 

30  70  CONTINUE 

C ACCELERAT  ISN/CECELERATION  REQUIRED;  DETERMINE 

C *■  IF  -veO-  CAN  BE  REACFIC  IN  TIME  TO  DECELERATE  TO  -VA- 

CALL  ACCEL 

*-  iFA,FB«FC,GCW  ,ItK»NCF4NGR,NV2FLG«RNX,STRACT-, 
TA,TRESIS.VXT(K«  !).«  VRE( K«  1 1» V2F,VG»X A.LUNl) 

1F(NV2FLG  »EQ.  21  GO  TO  3090 
C VBO  CAN  BE  REACHEC 

TB  = VMIVBQ(Krl)-VA4K#IIT/BFMX(K» 

XB  = •StiVaGIKtlWVAlK^lM^TB 
1F(<XA««£I  .GT.  lOBSE-MA-TD)  GO  TO  3080 
C ENOUGH  SPACE  BETWEEN  OBSTACLES 

TOO  = 2.*(WA«TLI/fVAIK»IUVXT<K»l)) 

T60  = (OBSE-WAt'TL-XA-XBI/VBOlK*!) 

VOVERIK.II  > 0BSE/<TA4TB04>T3«T00) 

GO  TO  31*0 

3080  CONTINUE 

3090  CONTINUE 

C ACCELERATieN/OECELERATlON  REQUIRED; 

C » OETEkPINE  VELOCITY  WMCN  CAN  BE  REACHED  BEFORE 

C * DECELERATION  IS  REQUIRED  AND  TINE  BETWEEN  AND 

C OVER  C8STACLES. 

VLGW  = VA4M«n 
VHGH  = VBC(AK«I) 

00  3130  J 4 1,10 

VMIC  a iVLCWAVHGHI/a, 

CALL  ACGEL 

» (FA,FB.FC.GCW,I«K  «NG F0N6R» NV2FLG» RNX, STRACT« 

4-  TA, TRESIS*  VXTIK,  IT,  VIRIO*  V2  F.  VG»  XA«  LUM  » 

IFINV2PkG  .NE.  2»  GC  TO  3100 
VHGH  = V«I C 
GC  TC  3130 

3100  TFINV2FAG  .NE.  H GO  TO  3110 

VHGF  = VLOW 

VLCW  s VA(K*II 

GG  TO  3130 

3110  CONTINUE 

TB  : VMlVPIO-VAfK,ll  A/eFMX(K» 

X6  = 0.S*iVMiO«-VAfK,I))*TB 

IFIIXARXBI  .LE.  (OeSE-WA-TL))  GO  TO  3120 
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3120 

3130 


31^5 


3140 

3150 

4000 


C 

C 

C 

c 

c 

c 


c 


3010 

3020 


30  30 


VHGF  * VMIC 
GO  TG  3130 
CGNT1N41E 
VLCM  s JUHiD 
CONTINUE 

lFilXA*XBJ  .LE.  <OBSE-«A-*TLAl  GOTO  3145 
VaO(K«<ill  = V6C4K*  11-17.6 
GC  TC  3070 

TBQ  = <OBSfi-tWA-TL-XA-XBWVMID 

TOO  a a.^tWAt'TLfc/IVAlK,  Ili»VXriK,IU 

VOVER(K,II  = C8SE/(TA*TB0*TB*T00» 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

END 

SUBROUTINE  IV20 

♦ IFA  ,FB  ,FC  *FQfiMX  ,GCW  ,MAXI  , NGR 

*■  ,NQGOVa  ,NTRAV  ,STR  .VAVCIC  VG  ,VOVER  • 


KINEMATIC  VEGETATIGN  CWERPlOE  CHECK 

»-r—  — - — - — — — 

1 .VARIABLE  DECLARATION 


REAL 

FA 

I 2e#3» 

REAL 

F8 

i 

REAL 

FC 

420«3I 

REAL 

fORMX 

(31 

INTEGER 

NOGCVA 

(3,91 

INTEGER 

NOGOVC 

(3r«) 

REAL 

STR 

(3,9} 

REAL 

VAVOID 

13»9» 

REAL 

VG 

(20«3,3I 

REAL 

VOVER 

(3v9J 

3 0 ALGCRITHM 

DO  3050  K s 1»NTRAV 
DO  3040  I = IfMAXI 

CALL  FORVEL  (i»FA,  FB»FC,  PCRMX,K.NGR*VOVERIK  , f 
DUMMY  = F+,4X5^C-eW«VOVER<Kb  ITM02.F/3  85.9 
IF(  DUMMY  .GT.  5TRlK,li  l GO  TO  3010 
NOGGVOIK,!*  = a 
GO  TO  302G 
CONTINUE 
NOGOVOIK,  I)  = 1 
CONTINUE 

CALL  FORVEL  AEvF A, FB,  FC,  FORMX  ,KWNGR ,VAVO  lOIK r 
DUMMY  = F*4,5RGCW.*VAVOIO<K,  IA**^.*/385,9 
1 FI  DUMMY  .GT.  STR4K,1I1  GC  TO  aJ30 
NOGCVA(K,IA  = 0 
GO  TO  3050 
CONTINUE 
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, NOG  OVA 


«VFMAX#VG) 


tVFMAXtVGI 
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NOGQVA(K«I)  3 1 
3040  CONTINUE 

3050  CONTINUE 
RETLRN 
END 

SUbROUTINE  IV21 


*■  (DOWN 

,FMT 

t GCW 

• IHAX 

glOVER  glSAFE  »LEVEL 

»NI 

.NOGOVA 

.NCGQVG 

, NT  RAW 

•UP 

tVAVOlD  .WMAX  ,VNAX1 

rVHAX2 

, VOVER 

,VSEL 

> VSEU 

gVS EL 2 

«VWALK  4 

C 

C MAXIMUM  AVERAGE  SPEED  IL6CRITHM 

c 

C 1.  VARIABLE  DECLARATICN 

C 


REAL 

A 

REAL 

B 

INTEGER 

DOWN 

REAL 

FMT 

<91 

INTEGER 

I 

INTEGER 

ICVER 

INTEGER 

IMAX 

I 3A 

INTEGER 

ISAFE 

<3A 

INTEGER 

K 

INTEGER 

KIV21 

INTEGER 

LEVEL 

INTEGER 

LUNl 

INTEGER 

N1 

INTEGER 

Nil 

INTEGER 

NOGCVA 

(3g9l 

INTEGER 

NOGOVC 

<3#9F 

INTEGER 

NTBAV 

INTEGER 

UP 

REAL 

VAVCIC 

( 3g9» 

REAL 

VMAX 

REAL 

VMAXl 

< 3A 

REAL 

VMAX2 

{ 3g9l 

REAL 

VOVER 

( 3.9  4 

REAL 

VSEL 

REAL 

VSELi 

<31 

REAL 

VSEL2 

1 3.ill 

REAL 

VMALK 

C 

C 3w  ALGORITHM 

C 

Nil =NI H 

00  3020  K=1,NTRAV 
CO  3010  1=1, Ml 

A = VOVER  IK^.JI*FL0AT(NOGOVO4K,in 
B ^ VAV0ICli<«l»*FteATiN0a0yA(K,ll» 
VMAX2(K»il  » AMAXlIArBA 
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3rl0  CONTINUE 

CONTINUE 

DO  3070  K=1,NTRAV 
CO  3060  I=1»NII 

IF(yMAX2< K»il  4GT,  VkALKI  GO  TO  3030 
VSEL2<K,1«  » VHAX2IK.1) 

GO  TO  3052 

3030  CONTINUE 

IFfiFMTdl/GCMUGT^l  ..QR.I.GE.IOVERI  GO  TO  30A0 
VSEL2IK,li  s VMAX2lKtIT 
GO  TO  3050 

30^0  CONTINUE 

VSEL2(K«lt  = 0»0 
30  50  CONTINUE 

3060  CONTINUE 

3070  CONTINUE 

DO  3100  K=1,NTRAV 

VMAXl(K)  - VFAXiltK.  li 
IMAXIKl  = I 
CO  3090  1=2, Ml 

IFlVHAXllKT  .GE.  VNAX2<K,I1>  60  TO  3060 
VHAXK  t<l  = VMAX2(K»1I 
1MAX(K»  =1 
30  80  CONTINUE 

3090  CONTINUE 

3100  CONTINUE 

no  3130  K=1,NTRAV 

VSELl(K)  = VSEL24K.it 
ISAFE(KI  =1 
CO  3120  I=i,Ml 

IFIVSELKKT  .GE.  VSEL2(K.in  GO  TO  3110 
VSELUKT  = VSEL2<K,II 
ISAFEl  K)  ^ I 
3110  CONTINUE 

3120  CONTINUE 

3130  CONTINUE 

C 

IFINTRAV  .EQ.  1 » GO  TO  3150 

IFIVMAXKUPI  /EC.  0.0>  GO  TO  3140 

IF!  VMAXULEVELT  .EQ.  0.0)  GC  TO  3140 
IFIVMAXKDOWM  «EC«  0.0)  GO  TO  3140 
VMAX  = 

* 3 . 0/H 1 ./VHAXl  { UP  ) ) 4-  41./VNAX14  LEVED-T'M  1 . /VHAXK  DOWN)  ) ) 
GO  TO  3160 


3140 

CONTINUE 

VMAX  = 0.0 

GO  TO  3160 

3150 

CONTINUE 

VMAX  = VMAXKUP) 

3160 

CONTINUE 

IFCNTRAV  .EQ.  11  GC  TC  3180 

IFIVSELIIUPI  AEC.  0.0»  GO  TO  3170 
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IF(VSELi( LEVELI  ^EC.  0.2>  GO  TO  3170 
IFiVSELH  DQMN»  .EC.  0.0)  60  TO  3170 
VSEL  = 

*■  3.0/{  (l./VSELl  <UP»»*«l./VSELl(LEVELIk»<l*/VSELUDOWN»  II 
GO  TO  3190 


3170 

CONTINUE 

VSEL  = 0.0 

GO  TO  3190 

31  80 

CONTINUE 

VSEL  = VSELH 

31  90 

CONTINUE 

RETURN 

END 


ROADhAY  NODULE  - AMC  74 


SUBROUTINE  RQAO 
C 


INTEGER 

NQ 

CQMNON  /INDEX/ 

>e 

INTEGER 

CONN 

CQMNON  /INDEX/ 

CfWN 

INTEGER 

ERF 

CQMNON  /INDEX/ 

EfF 

INTEGER 

FORCE 

COMNGN  /INDEX/ 

FORCE 

INTEGER 

GR 

CQMNON  /INDEX/ 

GR 

COMNON  /INDEX/ 

tiVEL 

INT EGER 

MO 

COMNON  /INDEX/ 

NN 

INTEGER 

FCN 

COMNON  /INDEX/ 

R4IM 

INTEGER 

SfiEEC 

COMNON  /INDEX/ 

SGEED 

INTEGER 

SR 

COMNON  /INDEX/ 

SR 

INTEGER 

Tfl 

COMMON  /INDEX/ 

TR 

INTEGER 

TOR  CUE 

COMNON  /INDEX/ 

TORQUE 

INTEGER 

UR 

COMMON  /INDEX/ 

Lfi 

INTEGER 

♦X 

COMNON  /INDEX/ 

NX 

COMMON  /VEHICL/ 

A CO 

COMMON  /VEHICL/ 

ASHQE 

(20) 

COMMON  /VEHICL/ 

AVGC 

COMMN  /VEHICL/ 

AXLSP 

(201 

COMMON  /VEHICL/ 

£<0 
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COMMON 

/VEHICL/ 

CGH 

COMMON 

/V  EH  I CL/ 

CGLAT 

COMMON 

/VEHICL/ 

CM 

COMMON 

/VEHICL/ 

CIO 

COM  MON 

/VEHICL/ 

Cb 

COMMON 

/VEHICL/ 

Ct&RKlN 

i20i 

COMMON 

/VEHICL/ 

CCNVl 

42»25) 

COMMON 

/VEHICL/ 

C€NV2 

(2,251 

COMMON 

/VEHICL/ 

CfLCT 

(20,31 

COMMON 

/VEHICL/ 

CiJAW 

(20) 

COMMON 

/VEHICL/ 

CRAFT 

COMMON 

/VEHICL/ 

EUGINE 

(2,50) 

COMMON 

/VEHICL/ 

EMEH6T 

COMMON 

/VEHICL/ 

FO 

(2) 

COMMON 

/VEHICL/ 

FGROO 

COMMON 

/VEHICL/ 

G^OUSH 

420) 

COMMON 

/VEHICL/ 

HIALS 

(25  1 

Common 

/VEHICL/ 

liPG 

COMMON 

/VEHICL/ 

IS 

(20) 

COMMON 

/VEHICL/ 

IB 

4 20) 

REAL 

lOlESL 

COMMON 

/VEHICL/ 

ifi^ESL 

COMMON 

/VEHICL/ 

IgNGlN 

COMMON 

/VEHICL/ 

(20) 

COMMON 

/VEHICL/ 

•^ICGKST 

420) 

COMMON 

/VEHICL/ 

JCONVl 

COMMON 

/VEHICL/ 

ICGNV2 

COMMON 

/VEHICL/ 

ICGUER 

COMMON 

/VEHICL/ 

(20) 

COMMON 

/VEHl CL/ 

41CASE 

COMMON 

/VEHICL/ 

liRAN 

COMMON 

/VENICL/ 

COMMON 

/VEHICL/ 

iCCKUP 

COMMON 

/VEHICL/ 

MAXI  PR 

COMMON 

/VEHICL/ 

MAXL 

COMMON 

/VEHICL/ 

MAliBLY 

COMMON 

/VEHICL/ 

NiOGlE 

4 20) 

COMMON 

/VEHICL/ 

ACHAIN 

(201 

REAL 

NCYL 

COMMON 

/VEHICL/ 

M£YL 

real 

KING 

COMMON 

/VEHICL/ 

ASiNG 

COMMON 

/VEHICL/ 

><?NET 

COMMON 

/VEHICL/ 

MFL 

(20) 

COMMON 

/VEHICL/ 

M6R 

COMMON 

/VEHICL/ 

MHVALS 

COMMON 

/VEHICL/ 

MCAD 

(20) 

COMMON 

/VEHICL/ 

ASVALS 

COMMON 

/VEHICL/ 

AVEH 

(20) 

COMMON 

/VEHICL/ 

Ai«>l 

(20) 

COMMON 

/VEHICL/ 

AMR 

COMMON 

/VEHICL/ 
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CCMVQN  /VEHIC4./ 
COM^'ON  /VEHICL/ 
COMf'ON  /VEH4CL/ 
COMMON  /VEHICL/ 
COMf'ON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEH4CL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /VEHICL/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 
COMMON  /PREP/ 


FRCCRAM  NRMM 
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FfiHT 

FFA 

lEMEP 

(2, 2011 

CMAX 

F&IAM 

I20A 

RiVM 

(201 

(i||«W 

(20> 

FMS 

(201 

f)M 

(201 

SAE 

SAI 

SICTh 

1201 

SECTW 

(201 

SVALS 

(25  » 

TCASE 

421 

Tk 

TPLY 

(201 

TfiSl 

(20,3I 

TQINC 

TRAKLN 

1201 

IRAK  WO 

120) 

TRANS 

I2»20l 

VAA 

VO  A 

VCS 

VOCB 

(25< 

kGQBS 

(25) 

VRIOE 

(20  ,31 

V3S 

tVSSAXP 

kc 

WQAXP 

kOPTF 

(20« 

kOTH 

kGHT 

(201 

kRAT 

1201 

kRFQRO 

kX 

(201 

kTE 

(201 

kk  AX  F 

X8RCOF 

ki 

LOCO  IF 

SHF 

A 

(3, A) 

AIF 

( 20  A 

6TF 

(201 

CHARLN 

( 20..3I 

CRFCFG 

(3) 

C6FCCG 

( 3) 

CPFCG 

(20»  3) 

CUFFG 

( 20,3.1 
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COMJfQN 

/PREP/ 

CCF 

I2  0» 

COMPON 

/PREP/ 

CRAT 

(20.,  3) 

COMMON 

/PREP/ 

<s€A 

(20,31 

COMMON 

/PREP/ 

GCM 

COMMON 

/PREP/ 

C-CWB 

COMMON 

/PREP/ 

.CQWNB 

COMMON 

/PREP/ 

GCWNP 

COMMON 

/PREP/ 

CCMP 

COMMON 

/PREP/ 

F8T 

i38K 

COMMON 

/PREP/ 

MSP 

COMMON 

/PREP/ 

NVEHC 

COMMON 

/PREP/ 

fllTE 

COMMON 

/PREP/ 

F 

(3) 

COMMON 

/PREP/ 

RfNM 

(20) 

COMMON 

/PREP/ 

FR 

COMMON 

/PREP/ 

TRACTF 

(20,5) 

COMMON 

/PREP/ 

TflfAPS  I 

131 

COMMON 

/PREP/ 

\MCC 

(20,3i 

COMMON 

/PREP/ 

VCIFG 

(20,31 

COMMON 

/PREP/ 

VCTMUK 

(20) 

COMMON 

/PREP/ 

VGV 

(20,5) 

COMMON 

/PREP/ 

.VI 

(20,3) 

COMMON 

/PREP/ 

V.T1RE 

(3) 

COMMON 

/PREP/ 

MiMAX . 

COMMON 

/PREP/ 

X 

(il 

COMMON 

/PREP/ 

XfiR 

COMMON 

/DERIVE/ 

AOT 

(9) 

COMMON 

/DERIVE/ 

NaGOBF. 

COMMON 

/DERIVE/ 

€AREA 

COMMON 

/DERIVE/ 

CiNB 

COMMON 

/DERIVE/ 

C6WP 

COMMON 

/DERIVE/ 

CCUPB 

(20  ) 

COMMON 

/DERIVE/ 

FA 

(20,3) 

COMMON 

/DERIVE/ 

FAT 

(9) 

COMMON 

/DERIVE/ 

FATl 

(9) 

COMMON 

/DERIVE/ 

FB 

( 20,3) 

COMMON 

/DERIVE/ 

F4 

(20,3) 

COMMON 

/DERIVE/ 

FMT 

(9) 

COMMON 

/DERIVE/ 

f©M 

COMMON 

/DERIVE/ 

fcmmax 

COMMON 

/DERIVE/ 

FQRMX 

(3) 

COMMON 

/DERIVE/ 

lELCAT 

COMMON 

/DERIVE/ 

IMiAX 

(3) 

COMMON 

/DERIVE/ 

ISAFE 

(3  ) 

COMMON 

/DERIVE/ 

J 

COMMON 

/DERIVE/ 

.MAXI 

COMMON 

/DERIVE/ 

BfiMX 

( 3) 

COMMON 

/DERIVE/ 

MV  ERG 

COMMON 

/DERIVE/ 

CASE 

COMMON 

/DERIVE/ 

f AV 

(9) 

COMMON 

/DERIVE/ 

FI  cue 

COMMON 

/DERIVE/ 

RTCWMB 
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COMMON 

/DERIVE/ 

RTOWNP 

COMMON 

/DERIVE/ 

PiCWP 

COMMON 

/DERIVE/ 

RTOUPB 

(201 

COMMON 

/DERIVE/ 

RfOUT 

( 201 

COMMON 

/DERIVE/ 

STRACT 

(20 

f3,Jt 

COMMON 

/DERIVE/ 

SAJ=0 

(91 

COMMON 

/DERIVE/ 

SR^V 

(91 

COMMON 

/DERIVE/ 

SIR 

(3» 

9) 

COMMON 

/DERIVE/ 

TJF 

(3) 

COMMON 

/DERIVE/ 

TCEN 

(9> 

COMMON 

/DERIVE/ 

TRES  IS 

(3* 

9» 

COMMON 

/DERIVE/ 

VA 

(3^91 

COMMON 

/DERIVE/ 

MB60VA 

(3. 

91 

COMMON 

/DERIVE/ 

V AVOID 

(3r 

91 

COM MON 

/DERIVE/ 

vao 

(3. 

9» 

COMMON 

/DERIVE/ 

UWACT 

(91 

COMMON 

/DERIVE/ 

VltV 

(31 

COMMON 

/DERIVE/ 

VGMAX 

(3  1 

COMMON 

/DERIVE/ 

,V« 

(20 

r3.3» 

COMMON 

/DERIVE/ 

AiGQVC 

(3» 

91 

COMMON 

/DERIVE/ 

VRAX 

COMMON 

/DERIVE/ 

VRAXl 

(31 

COMMON 

/DERIVE/ 

VNAX2 

(3» 

$1 

COMMON 

/DERIVE/ 

VCLA 

COMMON 

/DERIVE/ 

V8VER 

(3. 

91 

COMMON 

/DERIVE/ 

VRIO 

COMMON 

/DERIVE/ 

VaEL 

COMMON 

/DERIVE/ 

VSELl 

(31 

COMMON 

/DERIVE/ 

VS  EL  2 

(3t 

91 

COMMON 

/DERIVE/ 

VSCIl 

(if 

9) 

COMMON 

/DERIVE/ 

VHT 

I3f 

9) 

COMMON 

/DERIVE/ 

VXT 

(if 

SR 

COMMON 

/DERIVE/ 

AiaiSGNO 

COMMON 

/DERIVE/ 

R RAT  IQ 

COMMON 

/TERR  AN/ 

AJk 

COMMON 

/TERRAN/ 

ACTRMS 

COMMON 

/TERRAN/ 

AREA 

COMMON 

/TERRAN/ 

AREAO 

COMMON 

/TERRAN/ 

Cl 

COMMON 

/TERRAN/ 

CIST 

COMMON 

/TERRAN/ 

EAN6 

COMMON 

/TERRAN/ 

ECF 

COMMON 

/TERRAN/ 

ELEV 

COMMON 

/TERRAN/ 

EMU 

(3A 

COMMON 

/TERRAN/ 

CRADE 

COMMON 

/TERRAN/ 

lefis 

COMMON 

/TERRAN/ 

ICST 

COMMON 

/TERRAN/ 

IRCAC 

COMMON 

/TERRAN/ 

IS 

(91 

COMMON 

/TERRAN/ 

IST 

COMMON 

/TERRAN/ 

JlUT 

COMMON 

/TERRAN/ 

M 
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COMMON 

/TERR AN/ 

Noru 

COMMON 

/TERRAN/ 

CAM 

COMMON 

/TERR AN/ 

CBAA 

COMMON 

/TERRAN/ 

CBH 

COMMON 

/TERRAN/ 

m 

COMMON 

/TERRAN/ 

ces 

COMMON 

/TERRAN/ 

CBM 

COMMON 

/TERRAN/ 

CBMINM 

COMMON 

/TERRAN/ 

CM  A 

- 

COMMON 

/TERRAN/ 

MfASMQ 

COMMON 

/TERRAN/ 

FAOC 

COMMON 

/TERRAN/ 

PO^I 

COMMON 

/TERRAN/ 

RO>IC 

lAA 

COMMON 

/TERRAN/ 

PCURV 

(11  1 

COMMON 

/TERRAN/ 

RB 

COMMON 

/TERRAN/ 

PDA 

(12  1 

COMMON 

/TERRAN/ 

S 

(91 

COMMON 

/TERRAN/ 

se 

(91 

COMMON 

/TERRAN/ 

SOL 

491 

COMMON 

/TERRAN/ 

SURFF 

COMMON 

/TERRAN/ 

TiANPHl 

COMMON 

/TERRAN/ 

TRET  A 

(31 

COMMON 

/TERR  AN/ 

VCURV 

(4»  111 

COMMON 

/TERRAN/ 

Ml 

COMiMON 

/TERRAN/ 

MO 

COMMON 

/SCEN/ 

CGHES 

COMMON 

/SCEN/ 

VMALK 

COMMON 

/SCEN/ 

CCiMAX 

COMMON 

/SCEN/ 

CiMMA 

COMMON 

/SCEN/ 

MVER 

COMMON 

/SCEN/ 

ISEASN 

COMMON 

/SCEN/ 

rlSURF 

COMMON 

/SCEN/ 

ISNQM 

COMMON 

/SCEN/ 

Kin 

COMMON 

/SCEN/ 

Kia2 

COMMON 

/SCEN/ 

Kl  13 

COMMON 

/SCEN/ 

KllA 

COMMON 

/SCEN/ 

K1I5 

COMMON 

/SCEN/ 

Kl^il 

COMMON 

/SCEN/ 

KJ17 

COMMON 

/SCEN/ 

Kli8 

COMMON 

/SCEN/ 

K1I9 

COMMON 

/SCEN/ 

K.fllB 

COMMON 

/SCEN/ 

Kllll 

COMMON 

/SCEN/ 

Ki412 

COMMON 

/SCEN/ 

KIT  13 

COMMON 

/SCEN/ 

K.}4i4 

COMMON 

/SCEN/ 

Kill  5 

COMMON 

/SCEN/ 

Kiitl 

COMMON 

/SCEN/ 

K1H7 

COMMON 

/SCEN/ 

KNAP 

COMMON 

/SCEN/ 

KSCEK 
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COMPON 

/SCEN/ 

KTPP 

COMPON 

/SCEN/ 

KVIEH 

COMMON 

/SCEN/ 

MA/1 

COMMON 

/SCEN/ 

M)V2 

COMMON 

/SCEN/ 

KJV3 

COMMON 

/SCEN/ 

KIVA 

COMMON 

/SCEN/ 

KJV5 

COMMON 

/SCEN/ 

M1V6 

CCMtMON 

/SCEN/ 

KJV7 

COMMON 

/SCEN/ 

K1V8 

COMMON 

/SCEN/ 

KlJ/9 

COMMON 

/SCEN/ 

KIV10 

COMMON 

/SCEN/ 

lavii 

COMMON 

/SCEN/ 

K«]V12 

COMMON 

/SCEN/ 

K3V13 

COMMON 

/SCEN/ 

K.1V14 

COMMON 

/SCEN/ 

KJV15 

COMMON 

/SCEN/ 

KiV16 

COMMON 

/SCEN/ 

KJA/17 

COMMON 

/SCEN/ 

Mivia 

COMMON 

/SCEN/ 

KiV19 

COMMON 

/SCEN/ 

K4V2  0 

COMMON 

/SCEN/ 

KiV21 

COMMON 

/SCEN/ 

LAC 

INTEGER 

CAT  AIL 

COM  MON 

/SCEN/ 

CITAIL 

COMMON 

/SCEN/ 

MAP 

COMMON 

/SCEN/ 

MPG 

COMMON 

/SCEN/ 

M0NTP 

COMMON 

/SCEN/ 

RCPP 

COMMON 

/SCEN/ 

N3L  IP 

COMMON 

/SCEN/ 

MRAV 

COMMON 

/SCEN/ 

MUA 

COMMON 

/SCEN/ 

FHI 

COMMON 

/SCEN/ 

REACT 

COMMON 

/SCEN/ 

RCFCG 

INTEGER 

SIARCM 

COMMON 

/SCEN/ 

SfARCH 

COMMON 

/SCEN/ 

SEJYPC 

COMMON 

/SCEN/ 

VJRAKE 

COMMON 

/SCEN/ 

iViASMNV 

COM  MON 

/SCEN/ 

VA'TM 

COMMON 

/SCEN/ 

ZSNOk 

VARIABLE  OECLARATICiS 

REAL 

FATEMP 

t 20 

R EAL 

FBTEMP 

( 20 

f 33 

REAL 

FCT EMP 

(20 

. 3T 

REAL 

FTEMP 

( 20 

,5R 

REAL 

FTEMPC 

(20 

f 51 

REAL 

FGRADE 

( 3) 

REAL 

FQUAD 

( 51 

REAL 

K1 
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REAL 

MERITK 

REAL 

VGTEMP 

f 20»3,^31 

REAL 

VPOWER 

( 31 

REAL 

VTEMp 

I20»5A 

REAL 

VTEMPO 

(20irSA 

REAL 

VRQAO 

i 

REAL 

VQUAO 

(51 

ALGCRITHMS 

C 

C Rt’UTINE  1 - SPEED  IINITEG  EY  AEROCYNAMIC*  A0LL1NG»  CORNERING 

C AND  GRAEB  RESISTANCE 

C — — ii- 

c 

C SECTION  lA  - INITIALIZATION 

C 

FCC  = 0. 

FCTRAK  = 0, 

FR  = 0. 

FTC  = 0. 

IGaP  = 0 

WTSPA  = 0. 

WRAT10  = 1 

C 

C lA.l  - SUPERELEVATIGN  EFFECT  FACTOR 

C 

FE  = 1.  - 7«495*(RACCyi2.*l*EAN6 
C 

DO  6005  NGsi,NGR 
DC  6000  L=l,5 

VTEMP(NG»L»  = yGVING,LI 
f-TEMP(NG,L»  = tRACTFCNG.L) 

60  00  CONTINUE 

6005  CONTINUE 

IFiNCPP  ,NE,  0)  JPS  I = NGPP 
IFJNCPP  .EQ.  0^  JPSl  = 3 
C 

C SECTION  10  - VELOCITY  DEPENDENT  RESISTANCES 

C 

C IB.l  - SOFT  SURFACES  ITRAILSI 

C 

IF  {I  TUT  .NE-  141  GG  XC  610  2 


f 

CALL 

CHARLN 

IV3( 

,CI 

«CC4IES 

, CPFFG 

wOIAM 

fOOWPB 

tORAT 

f GANN  A 

,GCA 

tIB 

,1C 

• IP 

*IST 

,apsi 

«LUN1 

fNANBLY 

f 

,NPAD 

• NSUP 

• NVEN 

»NWHL 

tRCi 

• RTOMPB 

tRTOWT 

.SECTM 

4’ 

.TANPHI 

,TRAKLN 

• TPAKWD 

•VCIFG 

•VCIMUK 

• MGHT 

•MRATIO 

• ZSNCMl 

4 

CALL 

OOW8 

IV4( 

»OONP 

,CCWPB 

• CCW 

fGCNB 

^,GCMP 

*1B 

• I R 

4 

.NAPBLY 

.RTOWB 

tRTGNNB 

.RTOWNP 

, RT.CWF 

vRTOWPB 

,RTOWT 

• WGHT  1 

C ALL 

IV5( 

297 


R-2i558,  VOLUMg  I PAGE  A-125 

APPENDIX  A - listing  CF  FROC-flAP  NR«M 


*■ 

ATF 

• AVGC 

,BT£ 

wCD 

♦CPFCCG 

.CPFCFG 

,CTF 

•DAREA 

* 

tOOWP 

,eang 

,ECK 

• FA 

.fb 

*FC 

• FQRMX 

• GCWP 

*■ 

• ifloat 

tlST 

, ITWT 

• JPSl 

•LOCOIF 

,MAMBLY 

• NFL 

• N6R 

* 

,NTRAV 

,NVEH 

•NVIhC 

• NWHL 

• RAOC 

.RTQWP 

•STRACT 

• TEOR 

*■ 

.theta 

•TRACTF 

fVFKAX 

,VG 

,VGV 

,WGHT 

.WRATIO 

• LWNl  I 

GO  TO  6161 


C 

C IB. 2 HARD  SURFACE  fURlHARY  AND  SECONDARY  ROADS) 

C 

6102  DO  6155  K=lfNTRAVi2 

NGl  = 1 

COSX  - COSITHEXA4K))' 

DO  6154  NG=1,A6R 
FA(NG,K)  = 

FB(NG»K)  ^ 

FCING.KI  = I. 

FATENP(  AG,KA  * ATFINGI 
FBTEMP(NG«KA  « BTF(NG) 

FCTENPI  kg,  K>  * CTFIN6) 

C 

C IB. 2,1  - TRACTIVE  EfFORT  FCDIFIED  fiOR  SURFACE  TRACTION 

C AND  SPEED  DEPENDENT  RESISTANCES 

C 

IFITRACTHNG,!  )*ECF  .LT.  FMU(  ISURFI  *GCt<P*COSX) 

* GO  TC  6U0 

IF(TRACtFING, 5)*ECF  .LT*  FMU (iSURF) *GCWP*CQSX ) 

♦ GO  TC  6il0 
C 

C PIMHUM  GEAR  LlMiTfiD  BY  SURFACE  TRACTION 

C 

NGl  s N61  * 1 
FCING,KA  s 0. 

FBI  NG,K4  0« 

FA(NG,K*  e FMUtISUPFl*GC«P*COSX 
DC  6105  U = l,3 

VG(K6«L1«K)  = 0W 
STRACTI  NG,L1,K)  = FA(NG,K) 

6105  CCNTINDS 

GO  TC  6154 


C 

C SURFACE  traction  LIMIT  SOMEWHERE  WITHIN  GEAR 

C 

6110  IFI  VTERiliNG,  1 1 .EQ.  VTEHPfNG,5)  ) GO  TO  6120 

FX  = FMUI iSURF)*GCHP*COSX 
fORP«KI  * FX 
L = i 

CO  6111  L1>1,5,2 

VOTEHPI  NG.'LfKI  4 VGVING,L1) 

L » L ♦ 1 

6111  CONTINUE 

CA<L4  V EL  FORI 

♦ FX  ,FATEHP  ,FBTEMP  , FCTEMP  , FQRMX 
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,K  ,NGR  *VX  ,VFMAX  ,VGTEMP  I 


C 

C 

c 

c 


6115 


RESET  MINIMUM  SfEEC  IN  GEAR  TO  THE  POINT  THAT  OCCURS 
AT  the  SURFACE  TRAClIQN  LIMIT 

VTEMSING,  li  = VX 
FTBMBING»1I  = FX/ECF 

XINT  = (VTEMPI  NG,5  »>  - VTEMei  NG,  111/4. 

DC  6115  L«2«4 

VlEMFLNG.Ll  * VTEi<PlN6.,L-il  ♦XINT 
f lEMMNG.Ll  = CTFIN6I*VIEMP|NG»LI  **2  «• 
BTRINGimEMPING.L*  ♦ 
ATF4NG1 

CGNTINUE 
GO  T4  6130 


C 

C 

C 

(»120 


6125 

C 

c 

c 

6130 

C 


c 

c 


c 

c 

c 


6135 


6140 


♦ 

♦ 


6141 


SPEEDS  equal.  INCREHENT  CK  FORCE 

FTEMPlNGtll  = FMUI 1SURF4*6CMPPC0SX 
YINT  = IFTEMPiNG*!  H - FT EMPI NG.  5 » » /4. 

DO  612  5 L«2.4 

FTEMK  NG.LI  = FT EMPI  NG,L-1 » - YINT 
CONTINUi 

IB,  2. 2 - COMPUTE  VELOCITY  DEPENDENT  RESISTANCES 
DO  6142  i*l,5 

18,2.2.1  - AERODYNAMIC  DRAG 
FCC  ^ 0, 

FAQ  4 .0026*ACD*PFA*VTEMPtNG,L I •VTEMPI NG.Ll/ 
144. /17, 6/17^6 

DC  61^35  l=l*NAMeLY 

iAINVEWMI  -LT,  1»  GO  TO  6135 

t 

IB.  2.2.2  - TURNING  RESISTANCE  «WHEELED» 

FI  = ItWGHTiI  I»'*COSX*VTEMP(NGfLl**21/ 

I lll.l*RAOC»  l•M2•/17.6/17*6» 

FCC  = IFE*FI*F1»/4FL0ATINWHLUII*AVGCI  *■ 
FCC 

C0NT4NUE 

fV  ^ FAD  ♦ FCC 

FTEMfi04NG,LA  = FTEMP4NG,L)  - FW 
VTER«e<KGfL*  - VTEHPCNG.LI 
CCNTINUI 

IFt  VGVING.ll  .NE.  V6V(NG»5n  GO  TO  6141 
IGAP  = 1 
GO  T€  6152 
IF<  4NG  »NE.  1 ) .OR. 
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4- 


61A5 


6150 


6152 


6153 

6156 


6155 

C 

C 

c 

c 

c 


6160 

C 

C 

c 

6161 


♦ 

♦ 

♦ 


C 

c 


(FTENPING.l)  ^NE«  FTEMPING,5IM  GO  TO  6165 
FA4N6*KT  « FT€i<PO(  NG,  1.1 
FB4AGrK.I  b 0. 

FCING,K1  s 0. 

GO  IQ  6152 
00  615£  L=l,,  5 

FQUAOiLI  = FTENFOiNG^LI- 
VGUieiLt  - VTENPQINGtLI 
CONTINUE 

CALL  QUADS <VQUAOrFCUAOrA0«Bl«C2l 

FAl  NG,  « M 

FB(NG«KI  s B1 

FCING.KA  a C2 

L * 1 

00  6153  U=lf5,2 

VG(N6«L»KI  = VTEMPOINGRll 

STRACTI  N6t  L,KI  » FCf  NG«K).»VGiNG>LtK)*»2  «• 

FB(NG6K)*VGING»L»KI  «>FAiNG»K) 

L=L*i 

CONTINUE 

CONTINUE 

VFHAXIKI  = VGiNGl«i«Kl 
FaRHX(K)  = STFBCTINGUl.KT 
CCNTINUE 

1C  - NON-VELOCITY  CIPENOENT  RESISTANCES 

IC.l  • DRAG  FORCE  COR  TANCEN  ALIGNING  IWHEELEOI 

N SPACE  = NAM8LY,  - J 
DC  6160  I»UNSPA4:f 

IFINVEHdt  «LT»  n GC  TO  6160 
IFIITIIl  IT  00  TO  6160 

WTSPA  = NTSPA  ♦ lNG.hTM»  6 WGNTU*in*AXLSP(  I » 

CCNTINUE 

FTC  = FE«-I0.5*FMUiSURF»*WTSPA/RACC» 

1C- 2 - TURNING  RESISTANCE  tTRACKEOI 
DC  6165  I=1»NAMBLY 

IFIINVEHIIT  ..GT6  0)  .OR.  <RACC/12.  .GT.  305.1)  GO  TO  6165 
ALPHA  = WTiil/TRAKLNX  I) 

MERITK  = 1,0626  - 0.6999*ALPHA  * 

0.051668«ALPHA*ALPHA  * 

0 . a5686S*AL  PHA6ALPHA»  ALPHA 
XKl  = l.iB  - 0 .0090895  *R  ADC/ 12.  *. 

0.1i003779*CRADC/L2.il<'62  - 
i 6470676  E-08 ) *<  RACC/I2. » 6*3 
K1  = MERITKAXKI 

IF(  ITUT  .NE,  16)  GG  TO  6166 

1C. 2.1  - TURNING  RESISTANCE  SOFT  SURFACE  ITRACKEOI 
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C 

FCTRAK  « Kl*<TFOR/GCMl*«€HTiai  ♦ FCC 
GO  TC  61I5 

C 

C lCi2.2  - TURNING  RES-fSTiANCE  HARD  SURFACE  ITRACKEOI 

C 

6164  FCTRAK  = K14FMU4 ISURF ^♦M6HT^ il  ♦ FCC 

6165  CCNTINUE 
C 

C 1C. 3 H ROLLING  RESISTANCE 

C 

IFUJUT  .NE.<  14F  80  TO  6170 

C 

C IC.3.1  - SOFT  SURFACE  ITRAILSA 

C 

FP  = <RTOWP*GCWP  # RT0WNP*GCWNP*-*CQ5IT-HETA1  *SURFF 
GC  TO  6185 
C 

C iC.3.2^1  - HARD  SURFACE  CWFEELEOI 

C 

6170  DC  6178  I = l,NAMBL1j 

IFINVEHUI  .LT.<<  11  GO  TO  6175 

F0  = .007  ♦ »0939/TPSm* JPSII 
FR  = F0#WGK1H1I*SURFF  ♦ FR 
GO  TO  61.78 
C 

C 1C. 3-2.2  - HARC  SURFACE  ITRACKEC* 

C 

6175  FR  * .045»taGhTi«l6SURFF  * FR 

6178  CONTINUE 

C 

C 1C. 4 - GRADE  RESISTANCE 

C 

6185  DC  6190  K=t,NTRAV#2 

FGRAOElKl  = GCN«S2mTHETA(Kl  I 
6190  CCNTINUE 

C 

C 1C. 5 - TOTAL  NGN-VELfiClTY  CEPENCENT  RESISTANCES 

C 

DO  6199  K=i,NTRAV#2 

RESIST  = FGRACg4K>  ♦ FR  ♦ FTC  * FCTRAK 

C 

C C - SPEED  LIMITED  EM  TOTAL  RESISTANCES 

C 

IFIIGAP  .iNE.  lA  GO  TO  6198 
DO  6197  NG=J;,NGR 

IFlVGViNOjlA  .(NE.  VGV<NG,5ll  GO  TO  6197 
lFl(F.iEMPO<NG,ll  *LTJ  RES  1ST  1 .OR. 

»•  ( FTEHP0<NG,5I  *GT.‘  RESIST!  It  GO  TO  6197 

VfiOWERiKI  » VTEHPOINGyU 
GO  TO  6199 

6197  CONTINUE 
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6198  CALL  VELFCR( 

^ RESIST  ,FA  *Fd  ,FC  »FORMX 

* «K  ,NGR  «VEL  tVFHAX  .VG  I 

VP0WER(K>  = VEL 

6199  CCNTINUE 
C 

C RCUTINc  2 - SPEED  itWTEO  BY  SURFACE  ROUGHNESS 

C ■ 

c 

6200  CCNTINUE 

DC  6210  NR=2,PAXifiR 

IFIACTRHS  .GE,  RMSiNfH  GO  TO  6210 

VRID  = VRIC€ltNR-l  ,LAO  * I ACT, RMS  - RMS<NR-1»I* 
«■  (VRIOEI  NR*LACI  - VRlCEtNA-l,LACJ  1/ 

4-  IRMSUJR)  - RMSINP-IH 

GO  TO  6 30fl 
6210  CCNTINUE 

VRID  = VRTDE(  ►AX  WR«LIACI 
C 

C ROUTINE  3 - SPEED  LIMITED  BY  SLIDING  ON  CURVES 

C : 

c 

63lc0  CONTINUE 

TANG  = TAMEANGI 

IFIiTUT  «NE.  aGI  €Q  TO  6305 

C 

C 3A.1  - SLIDING  CN  CURVES  SOFT  SURFACES  (TRA4LS* 

C 

VSLIO  = SQRTI  3»5«9^RADC*ITANG  * IFOR/GCWPI/ 

4-  U.  > ITFCR/'GCMP^^TANG)  ) 

GO  TO  69*0 

C 

€ 3A.2  SLIDING  CN  CURVES  HARD  SURFACES 

C (PRIMARY  ANC  SECONDARY  ROADS  I 

C 

6305  VSLIO  = SORT! 385 .9*RA0C*ITANG  * FMU4 ISURFI* / 

4-  (1.  - FMUI  ISURF»*TANGn 

C 

C - • 

C ROUTINE  9 - SPEED  LiNlTEO  BY  TIPPING  ON  CURVES 

c 

0900  CCNTINUE 

VHP  = SQRTI  3 b5.  S9RADC*(WTMA-X  ♦ CGH*TANG»/ 

4 (CGh  WTMAX’t'TANCiF 

C 

C ROUTINE  5 - TOTAL  BRAKING  FORCE 

C 
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b5  iditj 

C 

C 

c 


♦ 


c 

c 

c 

6510 


6520 
653  0 


65A0 

C 

C 

C 

C 

C 

66  00 


C 

C 

c 

c 

c 

6700 


C 

c 

c 

c 

c 

c 


CCNTINUE 

IF(ITUT  .NE^  14 F GO  TO  6510 

5A  - TOTAL  BRAKING  SOFT  SURFACES 
CALL  IVIH 

DCWB  tGCW  rCCWB  .GCWNB  •NGGOBF  INTRAV  • 

RTOWB  (RTOWNE  «T1F  •THETA  rMRAT  10  tXBR  I 

GC  TO  6600 

5B  - TOTAL  BRAKING  iiA BO  SURFACES 

/ 

TBFdi  = GCW*SlN(TfciETA(  m 

AMINUX£R»fMU<  ISURF  >*G£WB«COSiTHErA(lt  *1 
If(NTRAV  .NE.  11  «C  TO  653  0 

IFiTBFdl  .GE.  0«1  GO  TO  6520 
NQGOBF  = I 
VSEL  = 

RETURN 
NOGQBF  = 0 
GO  TO  6600 

TEFOl  = GCl.i*SIN(I»eTAI3n  fc 

AMINUXBR^FJ-UI  ISURFI *GCHfi*COSi IHET Al 31 1 i 
IF(TBF(3)  .GE-  0.A  GC  TO  6540 
NOGOBF  = 1 
VSEL  = 0- 
RETURN 
NCGOBF  = 0 

ROUTINE  6 - DRIVER  E4CTATED  BRAKING  L4M1TS 


CCNTINUE 

BFMXllI  = AMINK  ULMAX»6CW»TBFnA*SFTYPC/l00.ll 
IFINTRAV  .EQ.  11,  €C  TC  6700 

BFMX(3»  = AMlMiOCUMAX*GCW,T8F4  34*SFTYPC/100-l 


ROUTINE  7 - SPEED  UNITED  BY  VISIBILITY 


CONTINUE 
CALL  iV13t 

BFMX  rEYEHGT  , GCN  tNTRAV  • 

RC  , REACT  ,VfiLV  ,VBRAKE  A 


ROUTINE  8 - AA5HG  CURVAiTURE  SPEED  LIMIT 

ADJUSTED  FOR  SLIPPERY  SURFACES 

— “ — — — — ->1-  -p—  ... 
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68  00 

681  0 
68li> 

6825 

08^0 


8 40 

69  B0 

6950 

7000 

C 

C 


CCNTINUE 

iF(RA0C/12.  #LT^  PCU  BV4  NVASHCM  GO  TO  6815 
1F(RA0C/L2.  .GT.  RCURVUn  GO  TO  6825 
DO  6810  NV-2#NVASH0 

IF(RADC/A2.  JLT-  RC-URV (.NVH  GO  TO  6810 

VAAShfi  = kVCURVi  IROAO.NV)  *.  ( RA0C/12.-RCURV<  NV 1 1* 
*•  <VCURVMROAD,NV-H  - VCURVi  IROAO^NV  >>•/ 

f KRCURVINV-1I<  RCURV<NVAII*17.6 

GC  TC  683id 
CONTINUE 
GO  TO  6830 

V4ASH0  = I VCURVMRCAO.,NV4SHO>  * IRADC/12.  - RCURV4NVASH0 
«-  I VCURVMRCAD.NVASHQt  - VCURVI  IROAO, NVASHO-1 1 1/ 

*■  IRCUBVI  N^ASHO)  - RCURV<NVASHO-iU»  ♦IT.G 

GC  TO  6830 

VAASHQ  = ( VCUF^illROAC.ll  * lRA0Cyi2.  • RCURVCin« 

*■  (VCURVnROAO«ll  * VCURV<IR0A0t2n/ 

f IRCUR|04‘1R  - RCURV(2I»M17.6 

IFIUITUT  .NE.  14  4 .ANO.  IFHUIISURRT  «Gc.  .7M  «0R. 

* lilTUT  .EO.  14A  .AND.  ITFCR/GCWP  .GB.  .7111  GO  TO  6900 

IFIUTUT  .INE,  14.>  .ANO.  CFHUtlSURFI  JLT.t  .711  GO  TO  6840 

SA  - SOFT.  SURFACES 

VAASHC  = VAASHQ*SURT44TFflR/GCWP*./0.7» 

GO  TO  6900 

88  - HARO  SURFACES 

VAASHC  = VAASHO*SQRTIFMU<1SURFI/0.J» 

ROUTINE  9 - MAXIRUA  RCAOWAY  SPEED 

— V— •—t- 

CCNTINUE 
VSEL  = 0. 

DC  6950  K = WNTRAV62 

IFINVEHC  .LE.  .01  VT.IREIJPSU  = L.760. 

VROAO(K)  = ARlhlIVAASH0«VELVIKI,VRI0‘»VSL10»VTIP} 

VSELUK)  = AAtlAil  VLlR,VPOWER(KI  ,VROAO(K)  ,VTIRE(JPSI  A1 
•IFiNTRAV  .AE.  11  GO  TO  6950 
VSEL  = VSEfcilUPl 
RETURN 
CCNTINUE 

IFI  (VSELKUPt  .EC^  0«J  .OR.  IVSELIIOOWNJ  .EQ.  0.11  GO  TO  7000 
VSEL  = 2./4U2/VSELl(UP)  I * I i.V  VSEL  1 IDOWN  A»  * 

CONTINUE 

RETURN 

END 

SUB.<0UTINE  BUFF0 
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OUTPUT  ALGORITHM 


1.  LABLED  COMMON  ASSliGNMENTS 


COMMON 

/IQ/ 

IfOF 

COMMON 

/!□/ 

KBUFF 

COMMON 

/lO/ 

LUNl 

COMMON 

/lO/ 

iUN2 

COMMON 

/lO/ 

L^N3 

COMMON 

/IQ/ 

lUiNA 

COMMON 

/lO/ 

LAIN  5 

COMlMON 

/!0/ 

tUNE 

COMMON 

/lO/ 

LUN7 

COMMON 

/lO/ 

tUN8 

COMMON 

/lO/ 

LJdN9 

COMMON 

/IQ/ 

tUM0 

INTEGER 

MO 

COMMON 

/INDEX/ 

.MO 

INTEGER 

CQMN 

COMMON 

/INDEX/ 

C6WN 

INTEGER 

EGF 

COMMON 

/INDEX/ 

EFF 

INTEGER 

FORCE 

COMMON 

/INDEX/ 

FGRCE 

INTEGER 

GR 

COMMON 

/.INDEX/ 

CR 

COMMON 

/INDEX/ 

LIVEL 

INT EGER 

MN 

COMMON 

/INDEX/ 

MN 

INTEGER 

ffM 

COMiMON 

/INDEX/ 

ROM 

INTEGER 

SfiEFC 

COMMON 

/INDEX/ 

SBEED 

INTEGER 

SR 

COMMON 

/INDEX/ 

SR 

INTEGER 

TR 

COMMON 

/INDEX/ 

TR 

INTEGER 

T€RCUE 

COMMON 

/INDEX/ 

TSRQUE 

INT  EGER 

U« 

COMMON 

/INDEX/ 

IS 

INTEGER 

MX 

COMMON 

/INDEX/ 

MX 

COMMON 

/DERIVE/ 

ADT 

191 

COM  MON 

/DERIVE/ 

NGGOBF 

COMMON 

/DERIVE/ 

CAREA 

COMMON 

/DERIVE/ 

COMB 

COMMON 

/DERIVE/ 

C«HP 

COMMON 

/DERIVE/ 

CQWPB 

(201 

COMMON 

/DERIVE/ 

FA 

(20*3) 

COMMON 

/DERIVE/ 

FAT 

(91 

COMMON 

/DERIVE/ 

FATl 

(91 
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COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /DERIVE/ 
COMMON  /TERRAN/ 


FB 

i2Q,3i 

FC 

{ 2i9«3l 

FMT 

<91 

FCM 

F6NMAX 

f£RMX 

<3  1 

ICLOAT 

IMAX 

(31 

13AFE 

( 31 

J 

MAXI 

BEMX 

(3) 

NiVERO 

C£SE 

PAV 

191 

Fiowe 

RIGUNB 

RTEUNP 

PIGWP 

FiOWPB 

(201 

fiiCMT 

(20  I 

SIRAGT 

(20t3«3l 

SRFQ 

(91 

SRFV 

( 91 

SIR 

( 3r«l 

T.ftF 

(31 

TCEN 

(91 

TRES  IS 

(3,91 

VA 

<3,91 

KQGQVA 

<3,91 

V AVOID 

(3,91 

VBO 

<3,91 

IMPACT 

1 91 

WILV 

<31 

VEMAX 

<3  1 

V£ 

(20-,  3,31 

M£GOVO 

<3,91 

VMAX 

VMAXl 

<31 

.VMAX2 

(3r91 

VQLA 

•VOVEB 

<3,91 

VRIO 

VS  EL 

WSELl 

<31 

VSEL2 

<3,91 

VS6U 

<3,91 

VAiT 

13,91 

VXT 

<3,91 

kCGONO 

hP'ATIO 

AA 

1-133 
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COMMON 

/TERRAN/ 

ACT RMS 

COMMON 

/TERRAN/ 

AREA 

COMMON 

/TERRAN/ 

AREAC 

COMMON 

/TEHRAN/ 

Cl 

COMMON 

/TERRAN/ 

C4ST 

COMMON 

/TERRAN/ 

EAN6 

COMMON 

/TERRAN/ 

ECF 

COMMON 

/TERRAN/ 

EliEV 

COMMON 

/TERRAN/ 

FMO 

f3l 

COMMON 

/TERRAN/ 

4iHA0E 

COMMON 

/TERR  AN/ 

10  BS 

COMMON 

/TERRAN/ 

I0ST 

COMMON 

/TERRAN/ 

IROAO 

COMMON 

/TERRAN/ 

IS 

(9) 

CCMMQN 

/TERRAN/ 

1ST 

COMMON 

/TERRAN/ 

ITUT 

COMMON 

/TERRAN/ 

N4 

COMMON 

/TEHRAN/ 

AiU 

COMMON 

/TERRAN/ 

CAM 

COMMON 

/TERRAN/ 

CBAA 

COMMON 

/TERRAN/ 

C8H 

COMMON 

/TERRAN/ 

CBi 

COMMON 

/TERRAN/ 

CBS 

COMMON 

/TEHRAN/ 

cew 

COMMON 

/TEHRAN/ 

CBMINM 

COMMON 

/TEHRAN/ 

CBI  A 

COMMON 

/TEHRAN/ 

NMASHO 

COMMON 

/TEHRAN/ 

FACC 

COMMON 

/TEHRAN/ 

fC4 

COMMON 

/TEHRAN/ 

PC  1C 

i4» 

COMMON 

/TERRAN/ 

PCURV 

111  * 

COMMON 

/TEHRAN/ 

RG 

COMMON 

/TEHRAN/ 

RCA 

( 12« 

COMMON 

/TEHRAN/ 

S 

49> 

COMMON 

/TEHRAN/ 

SC 

(9) 

COMMON 

/TEHRAN/ 

SOL 

I9» 

COMMON 

/TEHRAN/ 

SURFF 

COMMON 

/TERRAN/ 

TANPH 

COMMON 

/TEHRAN/ 

THETA 

(3) 

COMMON 

/TERRAN/ 

VCURV 

14,  111 

COMMON 

/TERRAN/ 

HA 

COMMON 

/TERRAN/ 

H C 

VARIABLE  DECLARATICNS 


REAL  MPH 
ZMPP1=MPH1VMAX» 

ZMPH2  = MPHJ  VMAXIIUPIA 
ZMPH3=MPHI  VMAXULEVILAI 
ZMPH4=MPH{VHAXH0CWN*  I 
ZMPH5=MPHIVSELJ 
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ZHPF6=MPH(VSEL1(UPJ4 
Zf<PF7=MPHl  VSELULEVfiLl> 

ZMPH8=MPH4VSEL1(DCWMI, 

IFtITUT  .GE.  11»  GC  TO  2^30 
IF{  KBUFF  ,E0.  U GC  TO  2020 
K8UFF  = I 
WkITE{LUNl»2000l 

2000  FQRNATI70H1  NTU  ITiOl  VMAX  HP  LEVEL  DOWN  VSEL  UP  LEVEL 

fDOwN  GRADE  AREAt  Z/T 
C 3,  DYNAMIC  OUTPUT:  SECTAGN 

2023  WRiTcI  LUN10>  NTL,  IT«T , 2IIPH1 , ZMPH2 .ZiMPHi ,Z MPH4 ,ZMPH 5,ZMP H6 , 

^ ZMFH7t2MPH8*GRADE»AREA 

WRITE!  LUNl ,3000»  NTy, ITUT ,ZMPH1,ZMPH2,ZMPH3,ZMPH4,ZMPH5,ZMRH6, 
4^  ZPRH7t2MPH8»GRA0E(AREA 

GO  TO  A000 

2030  IFIKBUFF  .EQ.  U GC  TO  20A0 
KBUFF  = 1 
WRITE(LUN1, 29001 

2900  F0RMAT(a2hI  NTU  ITUi  VSEL  UP  DOWN  GRADE  DISTANCE,//) 

20‘+3  WRlTEILUNl,29ij0»  NTU,  ITUT  ,2MPH5 ,2«PH6 ,2MPH8.  GR  ADE,  0 1ST 

c9  50  FORMAT!  1X,I4,3X,I2  ,411  X^F 5.  21 , IX,F8.44 

3000  FORMAT!  IX,  14  ,4X,  U .>8!  1 X,F5.2  ) • IX,  F5  .2«1X,  Fo .4  ) 

C 3.  TERMINUS 

4000  CONTINUE 

RETURN 
END 


SUBROUTINE  ACCEL 


«• 

! FA 

,fb 

,FC 

,GCW 

*I 

.K 

,NGF 

, NGR 

,NV2FLG 

• RNX 

«• 

.STRACT 

,T 

,TRES4S 

*V1 

,V2 

#• 

,V2F 

,VG 

,x 

,LUM  1 

C time  and  DISTANCE  TO  ACCELERATE  FROM  ONE  VELOCITY  TO  ANOTHER 
(2  -----  — 

G 

C 1.  VARIABLE  DECLARATICN 


REAL 

FA 

!20,3» 

REAL 

FB 

( 24,31 

REAL 

FC 

!iW,3) 

REAL 

RMX 

i 24) 

REAL  STRAC7  li4,3,J) 

REAL  TRESIS  ( 3^9). 

REAL  VG  (iJa,3,3) 

C 3.  ALGORITHM 

VM  = GCW/385.9 

C A.  CETtRMINE  GEARS  ANGl  ,NG2»  OF  THE  -INITIAL 

C <■  AND  FINAL  VELOCITIES. 

CO  3010  NG  = 1 ,NGF 

1F(V1  .LE.  VCANG,3,Kn  GC  TO  3020 
3010  continue 

3020  CONTINUE 

NGl  = NG 
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3030 

30AJ 


C 


* 


3050 
3060 
30  70 
C 

3080 


30V0 


»• 


3100 


CO  3 030  NG=N€1,  N€R 

IFIV2  .LE.  VCIsNG»3,K»l  GC  TO  30A0 
CONTINUE 
CONT  INUE 
hG2  = NG 

IF(NG1  .NE.  NiG2  ) GO  TO  3080 
a.  SINGLE  GEAR  ROUTINE 
VL  = VI 
VH  = V2 
NG  = NGl 
T = 0. 

X = 0. 

CmLL  txgear 

iFAtfe,  FC,GCW,  I,K,NG,4lV2FLG,fiMX,STRACTrIT,TRes  IS,VL,VH,VG,XX  * 
IFINV2FLG  -NE*  01  GC  TO  3050 
T = TT 
X * XX 
GO  TO  4030 

IFINV2FLG  .NE.  U GC  TC  3060 
GO  TO  3260 

IF(NV2FLG  .NE-  21  GO  TO  3070 
GO  TO  4000 
CONTINUE 

GC  TO  4005 

C.  MULTIPLE  GEAR  RCMTINE 
CONTINUE 
T = 0. 

X =0. 

VL  = VI 

VH  = VGl  NG1,3,KI 
CALL  TXGEAR 

I FA,Fe,FCrGCW,I,K,NG,fiV2FLG,RMX#STR)ACT,TT,TRESlS»VL,VH,VG,XX» 
IF(NV2FLG  -NE.  >01  GC  TO  3130 
T = TT 

VS  = VGI  NG1,3<(K> 

X = XX 

1FING2  .LE.  <NG1*1»»  GO  TO  3090 
GO  TO  316.0 
CONTINUE 
VL  = VS 
VH  = V2 
NG  = NG2 
CALL  TXGEAR 

<FA,Fe,FC,GCW,I,K,NG^«V2FLG,RMX,STR.ACT,IT,IRESIS,VL,VH.VG,XXl 
IF(NV2FLG  .NE*  0)  GO  TO  3100 
T = T+TT 
X = X+XX  : 

GO  TO  4000 

IFiNV2FLG  .NE2  i>  GC  TO  3110 
VF2  = VS(NGi,3,K» 

NGF  =#  N31 
NV2FUG  =2 
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3liij 
312  a 


GO  TO  40dia 

IF(NV2FLG  ►NE*  GC  TO  3120 
GO  TO  326£ 

continue 


GC 

TO 

4005 

31 

30 

IF< 

NV2FLG 

.NE. 

1ft 

GO 

60 

TO 

400  2 

31 

40 

TF( 

NV2FLG 

a N E • 

2ft 

GO 

GO 

TO 

3260 

3150  CONTINUE 

GO  TO  A005 

C D,  ACCELERATE  THROUGH  INTERMEDIATE  GEARS 

Ji60  CONTINUE 

Ml  = NGIH 
M2  = NG2-1 
CO  3200  NG=MI«^2 
VL  = VS 

VH  = VG(  NG,3  ,KI 
CALL  TXGEAR 

•-  iFAtFErFC.GCW  ,I«K»NG«feV2FLG,RMX,STRACT,TT,IRESIStVL>VHtVGtXXl 


IF(  NV2FLG 

• NE4 

0) 

GO 

TO 

3170 

T 

= T 

♦ Tl 

VS 

= V 

GI  NG#3 

fKft 

X 

= X 

«-  XX 

GO 

TO 

3200 

3170 

IF1NV2FLG 

aNE« 

11 

GO 

TO 

3180 

GO 

TO 

3210 

318  0 

IF<  NV2FLG 

aNE, 

2) 

GO 

TO 

3190 

GO 

TO 

326£ 

31  90 

CONTINUE 

GO  TO 

400 

5 

3200 

CONTINUE 

GO  TO  3220 

321  0 

CONTINUE 

NGF 

NG-  1 

V2F  = VGIN6.F»3,KI 
NV2FLG  = 2 
GO  TO  A000 


CONT  INUE 

NG  = 

NG2 

VL  = 

VS 

VH  = 

V2 

CALL 

TXGEAR 

3220 


^ ( Fa.F e»FC.GCU  *I»K,NG»NV2FLG»RMXf  STR ACT  , TT , T RES  IS , VL * VH» VG, XX  ft 
|F(NV2FLG  .NE4  0»  GO  TO  3230 
T = TfTT 
X = X+XX 
GO  TO  A00e 

3230  IF(NV2FLG  -NE,  l»  GC  TO  32<»0 

NGF  = N6-1 

V2F  = V6INGF,3,K» 

NV2FLG  = 2 
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32A0 

3250 

C 

3260 


GO  TO 

IF(NV2FLG  .NEV  21  GC  TO  3250 
GO  TO  3260 
CONTINUE 
GC  TO  6005 
E.  ERROR  ROUTINE 

continue 

VAV=IVL*VH»/2. 

DO  3300  J=I,A 
CALL  TXGEAR 

(FA,F8,;FC,GCW,I,K*NGi,ljV2FLG,RMX,STRACT,TT,TRESIS,VL,VAV,VG,XX* 


IFINV2FLG  .NE^  0)  GO 
VH  = VAV 

VAV  a (VL+WHI72. 

GO  TO  330« 

TO  3270 

3270 

lFiNV2FLG  LNE-i  H GC 
VAV  = {VAV«¥Hi/2. 
GO  TO  330J2 

TO  3280 

32  80 

IF1NV2FLG  .NE7  2)  GC 
VH  = VAV 

VAV  = (VLAJiiHI/2. 

GO  TO  330^ 

TO  -3290 

3290 

CONTINUE 

GO  TO  6005 

3300 

continue 

V2F  a VAV 

NGF  a NG 

NV2FLG  a 2 

T a T *T  T 

X a X+XX 

C 6.  TERMINUS 
6030  CONTINUE 

RETURN 

6005  WRI TF( LUNI, 60103 

WRITEiLUNl  ,6020) 

WRITE!  LUNl  ,60301  I FA<  NG,K*,N6=1  ,NGRI 
WRITEiLUNl  ,6060) 

WRI TEI LUNl  ,60301  I FBI MG,K I ,NG*1 ,N GR I 
WRITE! LUNl, 6050) 

WRI  TE(  LUNl  ,6030)  ( FCI  N&,K),NG=1,NGR) 

WRITE!  LUNl, 6060)  GCW,  ((.,>NGR,.NV2  FLG 
WRITE! LUNl ,6070) 

WRITE!LUNi,6030)  ( ISTFftCTI NG ,M,KI , M=1 , 3 ) , NG=1 , NGR) 
WRITE!LUN1  ,6080)  T ♦THE  SIS!  K ,l  ) ,V1  .V2  ,V2F 

^ ,X 

6010  FORMATIlHl ,6H$ACCEL,/ ) 


6020  FORMAT!/, 1 X,8HFA  =* 

6030  F0RMAT!9X,5!  E15.8, 5XI,i 
6060  FORMAT!/, IX, 8HF0  => 

6050  FORMAT!/, 1X,8HFC  =A 

6060  FORMAT!/, 1X,8HGCW  =#E  1 5w  8 , / , IX  , 8HK  =^I6 , / , 1 X,  8 HM  GR 

♦ 16,  /,1X,8HNV2FLG  =.,I6ll 
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mc>8^ 


C 

C 

C 

c 

c 

c 

c 


c 


2?  10 


4,02  2 

2030 

20^0 

205u 

C 

3000 


FORMAT (/ ,1 X,8HSTRACT 
F0RMAT(/,1X,BHT 
1X»8HV1 

*■  1X,8HV2F 

RETURN 
END 

SUBROUTINE  D3LINC 

♦ i D ,A  , I 

«-  »JJ  »K  (KK 

* ,VALK  ,VI  ,VJ 


= 4 

=i4El5.8,/,lX,8HTRES4S 

<#EI5.8«/,iX»8HV2 

.-»E15.8,/,1X«8HX 


*11  • J 

sVALl  tVALJ 
,VK  I 


=,E15.8,/, 
=^•£15. 8,/, 
= »E15.8I 


THREE-DIMENSIONAL  LINEAR  INTERPOLATION  SUBROUTINE 
extrapolation  AT  CONSTANT  LEVEL  BEYOND  LAST 
ELEMENTS  OF  ARRAY. 


'1 


1 . variable  declaration 

REAL  A lT#l<ii,5l 

REAL  VALi  174 

REAL  VALJ  I 14» 

REAL  VALK  <54 

2,  ALGORITHM 

IF(I  .NE.  Ill  GO  TO  2010 
ALL  = A(  I,  J,  K) 

ALH  = A< 1*  J,KKI 
AHL  = All, JJ,  K I 
AHH  = A( I • JJ,XK  I 
GO  TO  2020 

continue 

DUMMY  = lVI-VALI<I44/<VALI(III-VALi4III 
ALL  = A{  I,  J,  KI4DUMMY*!  AIII,  J,  Ki-AI  I,  J,  K)l 

ALH  = A(  I,  J,KK»2I0UMMY*<A(II,  J,KK»-A<  I.  J,KKI4 

AHL  = A<  I,JJ,  K4AOUMMY*!  All  I,JJ,  K)-A<  UJJ,  KI4 

AHH  = A(  I,  JJ,KI«4#DUMMY*(  All  I,JJ,KKI-AI  I 

IF(J  .NE,  JJI  GC  T£  2030 
AL  = ALL 
AH  = ALH 
GO  TO  2040 

continue 

DUMMY  = (VJ-VALJ(JI4^tVALJ(Jjl-VALJ<JH 
AL  = ALL♦OUM^Y*■<AHL-ALLl 
AH  = ALHtDUMRY*<lHH-ALHI 
!F(  K .:NE.  KKI  GC  TC  2050 
C = AL 
GO  TO  3000 

continue 

0 = AL«-<  AH-ALI-*IVK-VALK4K  I»/<VALKIKK4-VALK(  Kl  I 

3.  TERMINUS 
CONTINUE 
RETURN 
END 

SUBROUTINE  FGSPC 
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*■  (CPF  ,0  ,NVER  iRClX) 

C — —4.— fm^ 

C FINE  GRAINED  SOIL  FULL  COEFFICIENT  ALGORITHM 
C — — 

c 

C ALGORITHM 

IFINVEH  .EQ.  II  GO  IC  1048 
C TRACKED  ASSEMBLY  . 

IFCCPF  .6E.  4. A 60  TO  1020 

IF(RCIX  .LT.  a.l  GO  TO  1010 
0 * 

* .544«-.046  3*RClX-<  <.544^*046  3*RCIXl#*2w-X0702*RCIXl*«.5 
GO  TO  2000 

1010  CONTINUE 

C D = .056#PCIX 

0 = .076*RCIX 
GO  TO  2000 

lki20  IFIRCIX  .LT.  0.1  GO  TO  1030 

0 = 

»•  .;4  554^-e392*RClX-  ({  ^4S54*-0392*RCIXI**2-0.0526*RCIX»**0.5 
GO  TO  2000 
10  30  CONTINUE 

C = .056<-RCIX 
GO  TO  2000 
1040  CONTINUE 

C WHEELED  ASSEMBLY 

1F(CPF  .GE«  4.)  GO  TO  1060 

IFIRCIX  .LT.  0.1  GO  TO  1050 
D = 

«•  .3  8 85--02  65*RCIX-  {i^i885*.;0265*RCIXI'**2-.035a.*RCIXl**.5 
GO  TO  2000 
1050  CONTINUE 

C e .046*RCIX 
GO  TO  2000 

10to0  IFIRCIX  .LT.  0.1  GC  TO  1070 

D = 

f .379«-.0219<-RCTX-i<  I , 379*-.»0219*RCIX»**2-.02574'RCIXI  5 

GO  TO  2000 
1070  CONTINUE 

D = .033*RCIX 
C 2.  TERMINUS 

2000  CONTINUE 

RETURN 
END 

SUBROUTINE  FGSPR 

+ {CPF  ,NVEH  ,RC1X  ,RTCWPe» 

C FINE  GRAINED  SOIL  POWERED  ASSEMBLY  MOTION  RESISTANCE 

C 1.  ALGORITHM 

IFINVEH  .EO.  1)  GO  TO  1030 
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C 

1010 

102  0 

C 

1030 

1040 

105>0 

1060 

C 

2000 


C 

C 

C 

C 

C 


2010 

C 

C 


3010 

3020 


TRACKED  ASSEPBLV 

IFlkCIX  .LT.  0.  > GO  TO  1010 

RTOWPB  = .045t2.3075/(  RCIX«-6.5» 
GO  TO  2002 

IFICPF  .GE.  4.1  GO  TO  1020 
RTQWPB  = ,4-<.072*RCIX 
GO  TO  2002 
CONTINUE 

RTCWPB  = .4-. 05  2»RC|X 
GO  TO  2000 
WHEELBO  ASSEMBLY 
1F( RCIX  .LT,  0. I GC  TO  1050 
IFJCPF  .GE.  4.»  GO  TO  1040 

RTQrtPB  = .035  |.861/(RCIX  *3.2491 
GO  TO  2000 
CONTINUE 

RTQtaPB  = .045*2  .il075/(  RC1X*>6.5  ) 

GO  TO  2000 

IFtCPF  .GE.  4. I GO  IC  1060 
RTQWPB  = .3-.0434RCIX 
GO  TO  2000 
CONTINUE 

RTOkPB  = .4- .029*RC4X 
2.  TERMINUS 
CONTINUE 
RETURN 
END 

SUBROUTINE  FGSTR 

* IDIAh  ,DRAT  ,1B  flP  fNVEH 

* «NWHL  «RCI  »RTOWT  »SECTW  •W6HT 

* ,WRATIO  ,LUN1  » 


.EO.  0AT  go  to  2010 


FINE  GRAINED  SOIL  TChHC  MCTICK  RESISTANCE 
2.  ALGORITHM 

IF( IIP  .EO.  01  .ANC^  ( IB 
NEVER  TOWED  ASSEJPBLY 
RTOWT  = 0. 

GO  TO  3000 
CONTINUE 
TOWED  ASSEMBLY 
IF(  NVEH  .NE.  0»  GO  TO  2020 
TRACKED  ASSEMBLY 
WRITE!  LUNl  ,30101 
WRITE! LUNl  ,3020)  DIAW  ,CRAT 

* ,NWHL  *RCI 

* rWRATia 
FORMAT (IHl ,6H$FGSTR,/I 

F0RMAT(/,1X,8HDIAW  =,E1 5.8 ,/ ,1 X ,8H0RAT 

* lX.SHIB  *415  ,/,lX,8HIP 

* 1X,&HNVEH  =,I5  ,/,lX,8HNWHL 

* 1X,8HRC1  *#EL5.8 ,/,lX«8HRKOMT 


• IB 
, RTOWT 


• IP 
•SECTri 


=,E15. 
= #I5,/ 
=•15,/ 
*.E15. 


NVEH 

WGHT 

8,/  , 

f 

8 f / , 
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2020 

C 


203  3 


C 

3000 


C 

C 

c 

c 

c 


c 


2010 


2020 

2030 

C 

3000 


♦ IX,8HSECTk>  =*E15.8#/»1X,8HWGHT  =*E15.8./, 

••  1 X,8HWRAT  10  =#Ei5.8l 

STOP 

CONTINUE 

WHEELED  ASSEMBLY 
WPW  = WGHT#WRAT  lC/FtCAT<NWHL» 

BETA  = 

+ (RCI*SECTW*0IAW<-DRAT*«.5I/<WFW*<  l,»SECTW/2.y0IAW*  » 
IF(8ETA  -GT.  2. > GC  TO  2030 
RTOWT  = 1.-. 3412«0ETA 
GO  TO  3000 
CONTINUE 

RTOWT  = .04*.2/(8ETA-l;.3l5» 

GO  TO  3000 
3.  TERMINUS 
CONTINUE 
RETURN 
END 

SUBROUTINE  FORVEL 

♦ (F  ,FA  ,FB  ,FC  ,FOftMX 

,K  ,NGR  ,V  ♦VFMAX  ,V6  I 

FORCE  AVALIABLE  AT  A GIVEN  VELOCITY 

. — ..  — -—a.  — — — — «.p.— 


VARIABLE 

REAL 


OECLARATICN 


FA  (204  31 

REAL  FB  (20,31 

REAL  FC  I 2.0, 3 » 

REAL  FURMX  (31 

REAL  VFMAX  ( 2T 

REAL  VG  (20,3,3) 

2.  ALGCRITHM 

IF(V  .GE.  VFMAX(KPI  GO  TO  2010 
F = FORMX{KI 
GO  TO  3000 
CONTINUE 
DO  2030  NG=1,NGP 

IF(V  .GT.  VG(NG,J,KII  GC  TO  2020 

F = ( FC(NG,KI^V*FaiNG,K)  >*V>FA(NG,K) 
GO  TO  3000 
CONTINUE 
CONTINUE 
F = 0. 

3.  TERMINUS 
CONTINUE 
RETURN 
END 

SUBROUTINE  QUAD 


4 

* 

4- 


(A 
»X1 
. Y1 


.X2 

tY^ 


.,C 

,X3 

-»Y3 
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»■  ,LUN1  » 


C CUADRATIC  FIT  THROUGH  IhPEE  POINTS  SUBROUTINE 

C 

C 

G 1.  ALGCRITHM 


AA  = ( Y2-Y1  )/U2-Xafc 
8B  = I Y3-Y1 I/I X3-X W 
CC  = (BB-AA»/i  X3-X2> 

A = Y1-AA*X1*CC«'XHX2 
B = AA-CC*( X1*X2I 
C = CC 

C 2*  CHECK  TO  INSURE  THAT  THERE  IS  NO  DIVISION  BY,  ZERO  (0) 
IFUX3-X1I  JEC»  Z,  .OR.  iX3-X2l  • EQ.  0.  .OR. 

<■  (X2-X1)  .EQ.  0.1  60  TO  3900 

GC  TO  4000 

3900  HRITEILUNI, 39101 

3910  FOR'1AT(1H1»39HOIV7SIC^  BY  ZERO  (0^  IN  SUBROUTINE  QUAD* /» 

C 3.  TERMINUS 

4000  RETURN 
END 

SUBROUTINE  QUAD5IX  ,Y  #A  ,8  ,CI 

C 

C LEAST  SQUARES  FIT  THRCUGH  FIVE  POINTS  PASSING 

C THRtlUGH  THE  FIRST  AND  LAST  POINTS.  EQUATION 

C OF  THE  form:  Y=  A ♦ fl*X  ♦ Q*X*p2 

G — ■••w—  ««•  *.«•  I-—— — — 

C 

C i.  VARIABLE  OECLARATICNS 

REAL  X (5  1 

REAL  Y (5» 

PEAL  A 
REAL  B 
REAL  C 


C TRANSFORM  ARRAY  INTO  THE  UNIT  SQUARE 

C 

CX=XI51  -<  Xill 
CY=Y(  5 I - Y(l) 

XXSUM=0. 

XYSUM=0. 

DO  2000  1=1,5 

XTI  =(  X(  U - X(  1 Al/CX 
YTI=Y{I I - Y(l» 

XYSUM  = XYSUM  »•  YTI  ^ XTI*CY 
XXSLM=XXSUM  ♦ XTl*<XTI  - 1.1 
2000  CONTINUE 
C 
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UNIT  SQUARE  COEFFICIENTS 

— — »*  — »(»■« 


C3=  XYSLM/XXSUM 
C2=CY  - C3 


intermediate  term  4NGT  A CQEFFICIENTI 


C4=l./  (CX*CXI 


FIVE  POINT  FIT  COEFFIGIENTS 
• 

A=YI  l»  *■  X(  U*C4*(  X(  1 L’iCa  - CX*C2I 

B=C4*ICX«‘C2  - 2.*XI1I*C3I 

C=C4*C3 

RETURN 

END 

SUBROUTINE  SLIP 

♦ ICPFC  ,IST  .LCCCIF  ,NFL  ,NVEHC 

♦ ,S  .Y  ,LUN1  » 


SUP  algorithm 


L 

C 

2010 

C 

20  20 

2030 

2040 

2050 

2060 


2«  algorithm  ^ 

IFidST  .NE.  il  -ANe.  CIST  .NE*  6M»  GO  TO  2060 
A.  FINE  GRAINED  SO  It 

IFINVEHC  .EQ.  1»  GO  TO  2020 
TRACKED 

IFICPFC  .GE*  A.F  GO  TO  2210 

S = ,025T*Y-.0161».015i*/< .8353-YI 
GO  TO  2160 
CONTINUE 

S = ,0733*Y-'.0063*i.00734/<-7n7-Y  > 

GO  TO  21j60 
WHEELED 

IFICPFC  •GE.  4.>  GO  TO  2040 

S = .0621  ♦Y-. 421  •••:0 1888/1. 7794-Y> 
IFiLOCDIfi  .NE4  11  GC  TO  2030 
S = S/1.1 
CONTINUE 
GC  TO  2160 

continue 

S = , aSA^Y-. 016*, 01414/1. 6697-YI 
IFJLQCDIF  .NE.  lA  GC  TO  2050 
S = S/1..1 
CONTINUE 
GO  TO  2160 

IF!  1ST  .NE.  2»  GC  T6  2100 
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C 

c 

c 


070 


2d6ii 

C 


20  90 

21  00 
C 


21 10 


2120 

2130 

C 


21A0 


C 

2150 


2200 

2210 

4- 

¥ 

* 


c 

2160 


a.  COARSE  GRAINED  SGIL 

IF(NVEHC  .EQ.  1»  go  to  2080 
TRACKED 

IFiNFL  .EC,  U GG  TC  2070 
RIGID  TRACK 

S = -.008  3#«005312/U573-y,» 

GO  TO  2L6  0 
CONTINUE 
FLEXIBLE  track 
YY  = l,07A*Y-.72 

S = YY+i  I YY*«2)  ♦.09*Y*.009I**'.5 
GO  TO  2L60 
CONTINUE 
WHEELED 

S = .0074*Y- .00A1*. 00374/1. 5786-Yl 
IF(LQCDIF  .NE.  lA  GO  TO  2090 
S = S/1.1 
CONTINUE 
GO  TO  2160 

IFl  1ST  .NE.  i»  GC  TC  2130 
C.  MUSKEG 

IFdNVEHC  .EC.  U .OR.  ICPFC  .GE.  4.1)  GO  TO  2110 
S = .0585*Y- .0106*. 01336/C. 964-Y) 

GO  TO  2160 
CONTINUE 

S = . 1024*Y-. 00864*. 01062/1 .7564-Y) 

IFCCNVEHC  .NE.  16  .CR.  4LOCC1F  .NE.  1)1  GO  TO  2120 
S = S/l.l 
CONTINUE 
GO  TC  2160 

IFI 1ST  .NE.  4»  GC  TG  2150 
0.  SHALLOW  SNCW 

IFC  Y .LT.  1.1  GC  TO  2140 
S = 1 . 

GC  TO  216£ 

CONTINUE 

S = .3*1  l.-C  1.- YI  P*.5  I 

GO  TO  2160 
E.  ERROR 

WRT  TEC  LUN1,2200  ) 

WRITEJ  LUNl  ,2210 » CFFC  ,.IST  .LOCCIF.NFL  ,NVEHC 

fS  ,Y 

FORMAT! IHl ,6H$STICK,/  I 

FORMAT!/, 1 X,8HCPFC  =,»E15.8,/,1X  ,8HIST  =,15  ,/, 

1X,8HL0C0IF  =#.15  ,/,lX,8HNFL  =,I5  , /, 

1X,8HNVEHC  =^I5  ,/,lX,8HS  =,E13.8,/, 

IX, SHY  =#E15.8» 

STOP 


F.  FUNCTION  LIMITS 
CONTINUE 

IF!{S  .GE.  0.)  .AND.  (S  .LE.  l.)l  GO  TO  2170 
S = 1. 
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2170 

C 


CONTINUE 
3.  TERMINUS 
RETURN 

END 

SUBROUTINE  TFORCF 
+ ICF  ,CPFC  ,CCWF 

^ ,NFL  ,NVEHC  ,flTG¥» 


fGCWP 

,TFOR 


,1ST 
,LUNi  F 


SOIL  LIMITED  TRACTIVE  EFFORT  ALGORITHM 


C 

C 


2 01  0 


2 02  0 
C 


2030 

2040 

C 

C 

C 

2050 

C 


2060 

C 


ALGORITHM 

IF(  (1ST  .NE.  1)  .AN&.  (1ST  .NE.  6»  I GO  TO  2040 
A.  FINE  GRAINED 

IF(NVEHC  .EQ.  11  GO.  TO  2020 
TRACKED 


IFICPFC  .6E.i  4*1*  GO  TO  2010 
CF  = (0CllPip.75  8>*RT0WP 
TFOR  = «Cf*.82l*GCHP 
GO  TO  3ii00 
CONTINUE 

CF  = (DCW  P-261  ll»PTOWP 
TFQR  * <CF4i7il*GCWP 
GO  TO  3000 
CONTINUE 
WHEELED 

IF(CPFC  .GE.  4,' I 60  TO  2030 
CF  a (0CWP‘-2614I»PT0WP 
TFOR  * (CF>.78I*6CWP 
GO  TO  3000 
CONTINUE 

CF  a ( D0WP-».5  85I*RT0WP 
TFOR  a (CFfr.65  5 UfiCWP 
GO  TO  3000 

IF(  1ST  .NE.  2)-  GO  to  2070 
8.  COARSE  GRAINED 

IF(NVEHC  <.EQ.  11  GO  TO  2060 
TRACKED 

IF(NFL  .EC.^  I*  60  TO  205  0 
RIGID  TRACK 
CF  a .076 
TFOR  a (CFA.568I«>GCWP 
GO  TO  3000 
CONTINUE 
FLEX  TRACK 
CF  a .1 

TFOR  a (CF*.695lt*GCWF 
GO  TO  3000 
CONTINUE 
WHEELED 

CF  a RTOWP*DOW§-.56 
TFOR  a |CF*.575I46CWP 
GO  TO  3000 
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24>72 

C 


2080 


2090 

C 


2100 

21X0 


C 

3000 


C 

c 

c 

c 

c 


c 

c 


c 


IF(  1ST  ,NE.  3X  GO  TO  2090 

C.  MUSKEG 

IFdNVEHC  .NE.  0*  .OR«  4CPFC  .GE.  4. At  GO  TO  2080 
CF  * RTCHP>BO«P-.88 
TFOR  a iCF«-.91l*GCWP 
GO  TO  3000 
CONTINUE 

CF  a RT0WP^0QhB-.68 
TFOR  = iCF*,745i<i6Ck«P 
GO  TO  3000 
CONTINUE 

D,  ERROR 

VtRI  TE(  LUNl,2i00) 

WRITEI  LUNl, 21101  CF  .CPFC  t COMP  «GCMP  , iST 

<■  fNFL  fNVEFC  »RTOWP  ,TFOR 


FORMAT (IHl ,7H$TFCRCF, 

/t 

FORMAT  (/,1X,8HCF 

«AE1S»8,/*1X*8HCPFC 

a^E15.8*/» 

1 X»8H00WP 

a,ElS.8  */«lX,8HGCWP 

■*  E15  • 8*  /* 

1X*8HIST 

**IS  •/•1X*8HNFL 

'.15  */, 

1 X*8HNVEHC 

a,I5  •y*lX,8HRT0WP 

' *E1 5 • 8*  /* 

iX,8HTFCR 

>>E15«8) 

STOP  12 

3.  TERMINUS 

CONTINUE 

RETURN 

END 

SUBROUTINE  TXGEAR 
<FA  ♦FB  ♦FC 

,GCW  *1 

*■  »K  .NG  ,NV2Fte  ,RHX  .STRACT  ,T 

* ,TKESIS  ,V1  ,V2  «VG  ,X  I 

TIME  AND  DISTANCE  IN  A GEAR 


1.  VARIABLE  OECLARATICN 

PEAL  FA  120*3 1 

REAL  FB  120,31 

real  FC  I20,3t 

REAL  RMX  1201 

REAL  STRACT  ( 20,3*31 

REAL  TRESIS  (:3«9I 

REAL  VG  120*3*31 

2.  ALGORITHM 

A.  SET  COMMON  VALUES 

VM  a 1GCW/3«S.9I*RMX(NG> 
A a FA1NG*Kt 

B a FBI  NG,KA 

C a FCING*Kt 

F a TRESISm*!! 

CSQ  a B*B-4^*4At-FF*C 
NV2FLG  a 0WI 

B.  SOLUTION  TREE 
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C 

1 
C 

2 

C 

3 


C 

A 

c 

5 


6 

7 

C 

8 


C 

c 

11 

c 

12 


C 

13 


G 

lA 

c 

15 


C 

16 

C 


IFIO  26,  17,  1 
1.  POSITIVE  CURVATURE 
IFiBI  2,  11,  A4 

A.  NEGATIVE  SLOPE  AT  V=0. 

CONTINUE 

IF(A-F»  3,3*A 

1.  NEGATIVEAZEPO  EXCESS  TRACTION 

R2*<-8*SQRTI0SCII/I,24*CI 

Rl=lA-f  A/(C*R21 

IFI  V1^GI!«R2T  GO  TO  36 

NV2FLG  = 1 

RETURN 

2.  POSITIVE  EXCESS  TRACTION 

IFICSQ)  38,8,5 
A»  FOSMIVE  01SCRI«<INANT 
R2  = I*»B*SQRTIDSQM/I2.*CI 
Bl=i(A-FI/IC*R2l 

1F{  V2.LE.R1.0R.VUGE.R2I  GO  TO  36 

IF<Vi-Rll  7,7,6 

NV2FtGal 

return 

NV2Ft.G=2 

RETURN 

B.  ZERC  DISCRIMINANT 
RZsI-BfrSQRTIOSQl-A/I  2«*C» 
fil*<A-FI/( C*R2» 

IFI Vi,GT*Rl.OR.V2,LT.Rll  GO  TO  37 
IFIVI-Rll  7,6,7 

C.  NEiGAfIVE  DISCRIMINANT 

B.  ZERO  SLOPE  AT  V=0. 

IF(A>Fi  13^12,38 

1.  ZERC  EXCESS  TRACTION 
T=VM*<4,/Vl-il./V2»/C 

X=( VM/CI*ALOG4VM/I VM^Vl*C*T» I 
RETURN 

2.  POSITIVE  EXCESS  TRACTION 
R2  = SQRT*DSG»/I2.*C  I 

Rl= (A-f >/IC*R2» 

IF(Vl.Gi.R2l  GO  TO  36 
NV2FLG=i 
, RETURN 

C.  POSITIVE  SLOPE  AT  V=0. 

IF(A-FI  15»15,16 

1.  NEGATIVE/ZERO  EXCESS  TRACTION 
Ri  = <-B-SCRT<  OSQi )/C2.«Ct 
R2=(A-FT/IC*R1> 

IF<VUGT,R2I-  GO  TO  36 
NV2FLG»a 

RETURN 

2.  POSITIVE  EXCESS  TRACTION 
IFCCSQI  38,37,36 

2.  ZERO  CURVATURE 
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17 
C 

18 
C 

19 

C 

20 

21 


C 

22 

C 

23 

C 

24 


C 

25 


C 

26 

C 

27 
C 

28 

C 

29 


30 

C 

31 

32 


IF(B)  18,22,25 
A.  NEGATIVE  SbOPE  AT  V=0- 
IF(A-F)  19*19,20 

1.  NEGAT1V6^2ERQ  EXCESS  TRACTION 
NV2FLG*l 

RETURN 

2.  POSITIVE  EXCESS  TRACTION 
Rl=-IA-El/B 

IF(VL-Fil  21,19,19 
lF(  V2*Li.RlF  GO  TO  35 
NV2FLG=:2 
RETURN 

8.  ZERC  SLOPE  AT  V*0. 

IFU-FI  23023,24 

1.  NEGATIVE/ZERO  EXCESS  TRACTION 
NV2FLG-1 

RETURN 

2.  POSITIVE  EXCESS  TRACTION 
T=VM*(  V2-VU/I  A-FI 

X = ( ( A-Fl*T/4  2.*VMI*VU*T 
RETURN 

C.  POSITIVE  StOPE  AT  V=0- 
IFI  A-F.GE'.a.  A 60  TO  35 
R1=-1A-€I/B 
IFiVUCT.RlI^  GC  TO  35 
NV2FLG»i 
RETURN 

3.  NEGATIVE  CURVATURE 
IF<BI  27,  27,31 
A.  NEGATIVE/iERO  CURVATURE 
IF<A-F)  26»2a,29 

1.  NEGAT1V6/2ER0  EXCESS  TRACTION 
NV2FLG  = 2 

RETURN 

2.  POSITIVE  EXCESS  TRACTION 
Rl  = Ir8*SQRT(  DSQM/I2.*C» 
R2=(A-'Ffc/IC*RH 
1F(V1«LI.P2F  GO  TO  30 
NV2FLG=-1 

RETURN 

lFiV2^LE,B2»  00  TO  36 

NV2FLGa2 

RETURN 

b.  POSITIVE  CURVATURE 

IF(A-F.GE..««.GR.CSQ.GT«0.i  GO  TO  32 
NV2F4.G;=1 
RETURN 

R2  = I-B-SflRT{  OSO  l/<2^*C» 
R1=(A-FV(C*R2* 

IF(Vl.L£.Rli  GO  TO  33 
1F(  V1.  (II.R2I-  OO  TO  33 
GO  TO  36 
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33  NV2FLG-=l 

RETURN 

3A  IF(  V2.  LE.R2)  6C  TO  36 

NV2FLC>J 

RETURN 

C C.  ###  ROUTINE 

35  T=(VM/BI*ALCGUB«V2*A-F>/<  B3»V1*A-F»  » 

X=-C  A-Fl»T/B  + (VM^  (B*Bl  1*A-F**( EXPI T«- B/VM  I- 1 . 1 

RETURN 

C D.  LOG  ROUTINE  - PCSillVE  DISCRIMINANT 

36  C=SQRF<OSQ» 

VI  8AR=  ( 2 , ♦€*  Vl«-  e<tC>  / U .•C*V  I ♦B+D > 

V2  BAR  = U .PC*  V2  «-e*DI/42  .PCPV  2 *8  *0» 

T=I  VM/OI  •ALOGI  V2eAR/yi  BARI 

X=I.5*(0-BI  *T-V#PALCGUI.-VlBAR*EXP(T,*0/VMn/ 

♦ (l.-VIBARII  I/C 

RETURN 

C E.  RECIPROCAL  RCUT  INE  ZERO  DISCRIMINANT 

37  T=2 . *V M* 4 1 . / 1 2 . *C* V 1* B I- 1 . / 42 . *C*V2 *6 1 1 
X=lVM/CT*ALCGI2f.PVM/4  2j*VM-T*4  2..*C*Vl*8l  1 l-.;5*B*T/C 
RETURN 

C F.  NEGATIVE  ROUTINE  -’  MAKE  TWO  GEARS  FITTED  BYW  STRAIGHT 

C ♦ LINES  OUT  OF  ONE  FlTTiC  BY  A QUADRATIC^ 

38  SH>(  STRACTI  NG»3  ,K)-STRACT<N6t2«Kil/4  VG4NGt3tKI-VG4NG,2,  Kll 
2H»(STRACT(NG«2«Ki*VG(l^*i*KI>STRACT(NG«3fKtMVG(  NG»2«Ki  1/ 

4-  4VG(NG,3,KI<VG{NG«2f  Kfti 

SL=(STRACt{NG,2  ,«l-STRACTJNG,l  *Kli/IVGlN6»2,K)-VG(  N6,l,m» 
ZL»i STRACT{NG,I,Kt*VGf NG»2 •KI-STRACT4 NG >2»K i*VG4NG« I tK I »/ 

* (VGiNG»2«KI-VG4N6«ltK«i 

IF(V2«GE.V6(NG, 2»KII  GO  TO  J9 
S=SL 
Z*ZL 

GO  TO  42 

39  IFiVl.LE.VGCNG,2#KH  GO  TO  40 

S=SH 

Z=ZH 

GO  TO  42 

40  lF(V2.LE.AMAXli-4ZH-F>VSH,-4ZL-FiySLII  GO  TO  41 

NV2FLG=2 

RETURN 

41  TL*4  VH/SLI  •AiCG«ISL*VG4NG,  2,KI  i-ZL-FI  /4SL*Vl  ♦ZL-FII 
TH=(VM/SHI*ALOia4J|ISH*V2*ZH-FI/4SH*VG4NG%2*,KI*ZH-FII 
X=(SL*V1  «-ZL-FI4VI»*<EXP<SL*TL/VMI-l»l/tSL*SLl 

♦ *(  SH*  VG(NG,2rKI*Zh-FlfPVM*(  EXP4SH*TH/VMM-l,  ii/4SH*SHI 

* -(ZL-FI*TL/SL-(ZH-FI*TH/SH 

T=TL+TH 

RETURN 

42  VZ=-IZ-FI/S 
IF(V2.bT.VZl  GO  liC  43 

NV2FLG*0 
RETURN 

T=4VM/SI*ALOC4  4 S4lV2*Z-FA/4S*VU2-F»  l 
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C 


c 

c 

c 

c 


c 


c 

1 

c 

2 

c 

3 

5 

6 

7 

8 
9 
11 
12 


13 

14 


15 

16 

17 

18 
19 
21 
10 


X=U  S*V1*Z-F  »*VM^IEXP4  S9T/VMI-1  Jl-lZ-FI  *,S*TI/I S»S» 

RETURN 
3.  TERMINUS 
END 

SUBROUTINE  VELFCR 

♦IF  ,FA  fFB  ,fiC  ,fORMX 

•-  *K  ,N6R  ,VEL  fVfMAX  ,V6 

MAXIMUM  VELOCITY  aVERCCNiNC  A GIVEN  RESISTANCE 


1.  VARIABLE  OECLARATICN 

REAL  FA  42a«3l 

REAL  FB  <2J.«3) 

REAL  FC  (24:»3I 

REAL  FQRMX  (31- 

REAL  VFMAX  < 3> 

REAL  VG  1^«3«3» 

2.  ALGCRITHH 

DO  10  INOEX=l,N6R 
NG  = KGRH-INDEX 

DSQ=FB(NG,KI**2-4.  •EC(  NG#KI*I  F A( Nfi,  Kl-F » 

IF(CSQI  1»2,4 

DISCRIMINANT,  NEGATIVE 

IF(FC(NG«Kn  i0,10«£0 

DISCRIMINANT,  2ERC 

IF(FC(NG,Kn  10,3,28 

DISCRIMINANT,  PCStTlVE 

IF( FA(NG,KI>FM  le,^0,20 

IF(  FC(NG,K1  I 11  ,5rlS 

Rs-(  ( FA(NG,KI-F  WFBING.KI  1 

IF{  VG(NG,1,KI-R)  7,««6 

IF(FB(NG,KI)  10,20,J0 

IF(  VG(NG,3,KI-RI  9 ,9% 8 

IF  (FB(NG,K)  >30,10,10 

1F(  FBI  NG,K)  I 20,10^0 

IF(FB(NG,Kn  12,12.,43 

R2=l-FB(NG,K)fSCRT(QSQ»>/(2.»F£lNG,K>F 
Rl=  <FA(NG,K)-F) >(R2AFC(NG,KII 
GO  TO  14 

Rl=  (-Fb(NG,KI-S0RTICS0n/(2.4FCiNG,K»l 
R2=  IFA(  NG,K)-F»/I  RUFClNGtKU 
RL=  AHINKftl  ,R2) 

RH=AMAX1IR1,R2) 

IF(FC(NG,Kn  18,18,35 
If(  VG(NG,1,  Kt-RL>  14,16,17 
If  ( VG(NG,3,KI>RLI  24,20,40 

TF(  VG(NG,1  ,K)»GT.RL4ANC.V0(NG,  1,KF.:LT.RH>  GO  TO  10 
GO  TO  20 

IF(  VG(NG,  1,  Kl-RL)  18,10yi9 
IF{  VG(NG,1,KI-.RH>  21,21,10 
IF(  VG{NG,3,K>-Rh>  20^20,50 
CONTINUE 
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IFI  FORMXiKl-FI  i3t  22,22 

22  VEL=VFMAX(K) 

GO  TO  60 

23  VEL=0- 
GO  TO  60 

20  VEL-VGING*3tK)< 

GO  TO  60 
30  VEL=R 

GO  TO  60 
U0  VELsRL 

GO  TO  6 0 
50  VEL=RH 

GO  TO  60 
C 3 2 TERMINUS 
60  CONTINUE 

END 

REAL  FUNCTION  MPH  (AR«t 

C 

C UNITS  CONVERSION 

C ; 

C 1.  VARIABLE  OECLARATICN 

REAL  ARG 

u 2.  ALGORITHM 

C A.  IN/SEC  TO  MPH 

MPH  =s  ARG  / 17.6 
RETURN 

C 3.  TERMINUS 

END 
C 
C 

SUBROUTINE  PLTSETI 

+ NPTS*  VGV,  NGR,  ATF,  BTF,  CTF,  IPOWERt 

*■  POWER,  TOPSPD.LUNli, 

C 

C PRINTER  PLOT  OF  POWER  ERAIN  CAT A AND 

C QUADRATIC  CURVE  FITTED  TO  THE  DATA 

C — — 

c 


REAL 

POWER  {2,2011 

REAL 

ATF 

( 20  ) 

REAL 

BTF 

{201 

BEAL 

CTF 

(20) 

REAL 

VGV 

(20,5) 

REAL 

Di 

(2,400) 

c 

REAL 

D2 

12,400} 

C 

NPTS 

s 

NUMBER  CF  POINTS  TO  PLOT 

c 

VGV 

= 

GEAR  MIN  ANC  MAX  SPEEDS 

c 

NGR 

s 

MAX  NUMBER  C£  GEARS  IN  VEH-ICLE 

C 

ATF 

= 

A COEF.  OF  CUADRATIC  EQUATION 

C 

BTF 

= 

B COEF.  OF  CUADRATIC  EQUATION 
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CTF  C COEF.  OF  CyACRAT  1C  EQUATION 

I POWER  = NUMBER  OF  TRACTIVE  FORCE  POINTS 

POWER  = TRACTIVE  FORCE  POINTS  FCfi  MPH 

TOPSPO  = TOP  SPEED  Cf  VEHICLE  IN  .25  MPH  INCREMENTS 

LUNl  = LOGICAL  UNIT  i 

ROUND  OFF  POWER  ARRAY  BY  NEAREST  .25  MPH 

CALL  RESCALdPOWERfPOkfiRI 
CALL  FIXER(NPTS,IPCHER*'PaWER,01» 

RECONSTRUCT  QUADRATIC  CLAVE  DATA  USING  CCEF. 

CALL  CURPLT4NPTS,VGV,NQB,ATf ,ETF,CTf ,02* 

PLOT  THE  DATA  ON  PRINTER 

CALL  PNTPLTIDl, 02, NPTS»TOPSPC, LUNIN 

RETURN 

END 


SUBROUTINE  PNTPLTI 

OATAl  . 0ATA2  tAfTS,  TOPSPO,  LUNlt 


ROUTINE  TO  00  A PRINT  SLOT 


DIMENSION  OATA1(2,402I4CATA2T2,A00I,  IPOINT1120>,AXHn3) 
DIMENSION  LABLYiA00l>,L»INEf  121 

DATA!  = FIRST  CURCE  CATA  POINTS 
0ATA2  = SECOND  CURVE  DATA  POINTS 
TOPSPO  = MAXIMUM  MILES  PER  HOUR  IN  PLOT 
LUNi  = LOGICAL  UNIT  1 

DATA  ICASH/10H> — 

DATA  IBLANK/i0H  / 

DATA  LABLY<52)  tLABLYI  5il  ,LABLY(54A,LABLy(55H,LABLY<  56)  , 

♦ LABLY(57l,LABLYI581rLABLY(59l,LABLVl60J*LABLYI61i  , 

*■  LABLy(62)  ,LABLY(  6J)  ,LABLY( 64),LABLY,i65 ) «LABLY(66)  • 

♦ LABLY(67) ,LABLY( 681/ 

*■  IhS.IH  •IHPrlF  ,1«E,1H  ,lHE,tH  ‘9IH  , IH  , 

♦ 1HM,1H  ,1«H/. 

INITIALIZE  PRINT  LINE  TC  ALL  SPACES 

00  5 K=l,120 
IPOINT (K»=IBLANK 
5 CONTINUE 

on  7 N=l,51 
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7 LABLY{  M =I  BLANK 
CO  8 N=69,NPTS 

8 LABLY{N»=IBLANK 
C 

C SET  UP  Y AXIS  LABEL 
C 

DO  55  N=l,12 
55  LlNEtNI  = lDASH 

C 

C RESCALE  POINTS  FOR  *25  MFN  INCREMENTS 

C 

CALL  RESCAL(NPTS,DATA.1A 
CALL  RESCALI  NPTS,OATA2»‘ 

C 

C COMPUTE  MIN,  MAX  ANC  SCALE  FACTORS  FOR  X AXIS 
C 

CALL  L IMITSIOATAI,  CATA^,NPTS,BM1N,BMAXySCALEI 

C 

C PRINT  X AXIS  LABEL  AXO  LABELED  TIC  MARKS 
C 

888  FORMAT  (1H1,44X,20HTRACHVE  FCRCE  - LBS,/» 

WRITE!  LUN1  ,888) 

STRT=8MIN 
DO  33  N=l,13 
AXH(N1 sSTRT 

STRT=STRT  BMAX-B Ml N U.12.1 
33  CONTINUE 

WRI  TEILUNl  ,777»  I AXHi  N4»N»U  131 
777  FORMATnX,13lF8.0,2X«.l 

WRITEI  LUNl,50t  IL I NEi  , 12) 

50  FORMAT46X,12A10,1H*» 

C 

C initialize  SPEED,  FLAGS  sAND  INDEX  VARIABLES 
C 

VSPEED=0. 

IFLG=1€0 

INDEX1=1 

INDEX2=1 

C 

C NOW  BEGIN  plotting  LOOP 
C 

10  CONTINUE 
C 

C blank  PLCT  STRING  FOB  NEW  LINE 
C 

DO  20  N=l,120 
20  .IPniNT(NI=  IBLANK 

C 

C GET  ALL  CATAl  POINTS  AT  THIS  SPEED  INTO  PRINT  STRING 
C 

30  IF  1 OATAK  1«INDEX1  ).NE,VSPEEO»  GOTO  40 

CALL  SCAL(  BMIN,SCALEtCATA112,  INDEXll  rl,  IPOINT) 
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IND£X1=INDEX1«'1 
GOTO  30 
C 

C NOW  PUT  CATA2  POINT  FOR  IHJS  SPEED  INTO  STRING 
C 

40  CONTINLE 

CALL  SCALI BMIN,SCALE>CATA2<2»lNDEX2l«2,lPOiNTI 
1NDEX2=IN0EX2*-1 

C 

C PRINT  STRING,  CHECK  IFLG  TO  SEE  IF  NUNBER  iS 
C NEEDED  ON  AXIS 

C 

IF  (lFLG.LT.20t  GOTO  6B 

WRITE!  LUN1  .1000}  L ABL  YUNOEX2-1 1 , VSPEEC.  4 I POjNT  !J  I , J«1 , 1201 
1000  FQKMAT(1X,A1,F3.0»2H  4.112041  I 
IFLG=1 
GOTO  7 0 
60  CONTINUE 

WRITE!  LUNl  ,1010)  L ABLY0  INDEX  2>ll>,  ! 1 POINT!  J ) ,J>1, 1 20) 

1010  F0RMAT(1X,A1,3X,2H  1,120A1) 

IFLG=IFLGH 

C 

C BUMP  VSPEED  UP  BV  0.25  MEH 

C IF  NOT  FINISHED,  REPEAT  FROM  10  WITF  NEW  VSPEED 
C 

70  CONTINLE 

VSP£EO=VSPEEO40.25 
IF  I1NCEX2.LE.NPTS)  GOTO  10 
WRITE!  LUNl  ,65  I TGPSPO.,ILlNE<  Nl  ,Nsl,12  M 
65  FORMAT  !1X,F4.1,  IX, i2Alj|.«lH*) 

WRTTE!  LUNl  ,4441 

444  FORMAT (/,21X,6HLEGEN0,J^21X,6H ,//,2lX,l7HX  - DATA  POINTS 

♦ ,//,21X,25H4  - FITTED  CURVE  POINTS* 

4//,2iX,48H0  - COINCIDENT  VALUES  OF  CURVE  AND  DATA  POINTS) 
RETURN 
END 
C 
C 

SUBROUTINE  SCAL! 

♦ BMIN,  SCALE,  CAIA,  IFLG,  IPCINT) 

C 

C HORIZONTAL  SCALE  SUBRCUTINE 

C — 

C 

DIMENSION  IPOINT(120) 

DATA  I EX,ISTAR, IZERC, IflLANK  /IHX, IH*, iF0, 1 h V 

C 

C BMIN  :=  MINIMUM  VALUE  FGP  X AXIS 

C SCALE=  SCALE  FACTOR  FfGM  •LIMITS- 

C DATA  = VALUE  OF  DATA  fDINT 

C IFLG  = PRINT  FLAG 
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C 

C 

e 

c 

c 

c 

c 


c 

c 

c 


10 


c 

c 


c 

c 

c 

c 

c 

c 

c 

G 

c 

c 


10 

c 

c 


c 

c 

c 

c 

c 

c 


RETURNED  : 

I POINT  = FORMATED  LINE  OF  PLOT  CHARS 
COMPUTE  SCALE  FACTOR 

IPT=1NT<0.5*(IDATA-BM1N»/SCALEM 
DETEMINE  PRINT  CHARACTER 


IF<  IPT.LE.0^OR.TPT.GT,.120I  RETURN 
IF{  IPOINTI  iPTI.EQ.  I8LAKKI  GOTO  10 
I POINTIlPTlalZERO 
RETURN 

IPDINT(IPTJ=ISTAR 

Ifi  lFLG.EQ.U  IPQINTI  I8Tli*IEX 

RETURN 

END 


SUBROUTINE  RESCALJ 
+ NPTS,  DATA! 


SUBROUTINE  TO  RESCALE  fCfi  *2  5 MPH  INCR. 


OlHENSiON  DATA(  2,400) 

NPTS  = NUMBER  OF  PCINTS  IN  ARRAY 
DATA  = ARRAY  OF  POINTS  TO  BE  CHANCED 

AT  NCR  = NUMBER  CF  DIVISIONS  PER  MILE  / HOUR 
AINCR=4« 

DO  10  Nal.NPTS 

1TEMP=INT4  .5*-.AINCR*0ATif  l,NI  I 

DATA!  1 ,N)  = FLQAT(  ITEMPMAINCR 

CONTINUE 

RETURN 

END 


SUBROUTINE  LIMITS! 

> DATAl,  OATA2,  NATS,  BMIN,  BMAX, 
LOCATE  MINIMUM  MAXIMLM  ♦ SCALE  FACTORS 
DIMENSION  DATA1(2,400J4DATA2( 2,400) 


SCALE) 
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C 

C 

c 

c 

c 

c 


10 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

5 


c 

c 

c 


10 


c 

c 


c 

c 

c 

c 

c 


DATAl  = ARRAY  Of  flRST  DATA 

DATA2  = ARRAY  OF  S ECONO  DATA 

BMIN  = DATA  MINIMlIR  VALUE 

EMAX  = DATA  HAXWW.fr  VALUE 

SCALE  = SCALE  FACTCF 

BMIN=9.9e99 
BMAX=-9.9E99 
DO  10  N*1,NPTS 

BMlN=ARIN14  8M.IN,OATAlIJ*Nt,OATA24  2,NII 
8HAX=AFAX1  i BMAX, DATAl  (2.,NI«0ATA2I  2«N}  I* 

CONTINUE 

SCALEsABS(  BMAX-BMiN)  yi00. 

RETURN 

END 


SUBROUTINE  FIXER( 

♦ NPTS,  IPOWER,  FBWER,  CIA 

SUBROUTINE  TO  RESCALE  ROWER  ARRAY 


DIME NS  ION  POMER4  2,201  I ID1(.2»A00I 

NPTS  = NUMBER  CF  f«lNTS  IN  PLOT 

IPOWER  = NUMBER  CF  fOlNTS  IN  POWER  ARRAY 

POWER  = POWER  DATA  MPH  AND  TRACTIVE  FORCE 

01  = NEW  ARRAY  06  POWER  POINTS  IN  ^25  MPH  INCEMENTS 

00  5 Nal-fNPTS 
Oil  1,NI=-U 
DO  10  N=l, IPOWER 
NN=N 


CONVERT  FROM  INCH  / SEC  TC  MPH 

OKltNM  s P0WER(1«M  J 17.6 
OK  2,NN)  »P0WER<2,M 

continue 

RETURN 

END 


SUBROUTINE  CURPLTl 

«•  NPTSt  VGV,  NGR,  AIF,  BTf»  CIF,  D2» 
GENERATE  CURVE  FROM  CUfiORAT.IC  EQUATION 


1 
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REAL  ATF  I 20  > 

REAL  BTF  1201 

REAL  CTF  (201 

REAL  VGV  (20, 5S 

REAL  02  (2,A00S 


NPTS  = NUMBER  CF  FeiNT  IN  CURVE 

VGV  = GRAR  SHIFT  SPEEDS 

NGR  = NUMBER  CF  GEARS  IN  VEHICLE 

ATF  = A COEF.  CF  CUAORATIC  EQUATION 

BTF  = 8 COEF.  OF  CUAORATiC  EOUATICN 

CTF  = C COEF.  OF  QUADRATIC  EQUATION 


RETURNED! 

02  = DATA  ARRAY  Of  CURVE  POINTS 

VSPEED=-.25 
N&=1 

DO  10  N=1,NPTS 
3 CONTINUE 

VSPEEO=VSPEEO»--.25 
5 CONTINUE 

IF(NG.GT.NGR»  GOTO  10 

Y=ATF(NG>  ♦ BTFI  NG!  •VSfiEED*17.6  A CTF(N6»*IVSPEED*17.6>**2 
IF((  VSPEEO  « 17^6  % .LT.  VGV4N6,5)  I-  GOTO  20 
NG=NG*  1 
GOTO  5 

20  CONTINUE 

D2(1,N)=VSP£E0 
02(2,NJ=Y 
10  CONTINUE 

RETURN 
END 
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M60»  TANK,  COMBAT,  FULL  TRACKED,  105MM  GUN 
HEAVE  NATURAL  FREQUENCY  1 , 3A  CY/SEC 
> VEHICLE 
NAMBLY=1, 

NVEH(  1 »=0, 

HGHT(  l)  = 10920ii/.  , 

1P(1)  =1, 


18(11=1, 
kEVM(  1 1=832  .0, 
TRAKWD(  11=2  8,  , 
GROUSHd  1=1  .5, 
NPAD( 1 1 = 1 , 
ASHOEI  11  = 194.  , 
TRAKLN( 1) =1 67., 
NBOGI  Ed  1=12, 
NFL( 1 1=1 , 
F,W(li=15.5, 

WTE (11=87., 
WTdl  =115., 

I AP  G=  1 , 

ACO=l  .2, 

C 0=  1 . 2 , 

PFA=9  2., 
HPNET=643., 
CID=1791., 
I0IESL=1  .. 
NCYL=1  2.  , 

NENG=  1 ., 

QMAX=1682., 

IENGIN=13, 


1200 . , 

161 0., 

13  00., 

1645., 

1400. , 

1670., 

1500., 

1682.  , 

1600., 

1680., 

17  00., 

1675.  , 

1800.  , 

165  5.  , 

19  00., 

163  0.  , 

2000  a , 

160  0., 

21 00., 

156  0., 

22  00  . , 

1515., 

2 3 00  . , 

1470.  , 

2‘«00.  , 

1 42  0.  , 

ITCASE=1  , 

TCASEIi)=  . 862,  . 98, 
ITRAN=1, 

ITVAR=0, 

TQINO=9a0., 

1C0NV2=12, 

C0NV2I1  ,1  1=  3 .660,  0 
3.125,  0 
2.650,  0 


• 45 , 

.If 

.2, 
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2 .228  , 

0.  3, 

1 .950, 

0.4 , 

1 . 6 70  , 

0.5, 

1 .420, 

0.6* 

1 .220, 

0.7, 

1 .050, 

0.  8 , 

0.9  60  , 

0.85 

0.9  70, 

0.90 

0 .970, 

1.00 

I CUNVi  =1  2 , 

CONVU  i,i»  = 

1875., 

0.0, 

1850., 

0.1, 

1 82  5., 

0.2, 

1815., 

0.3, 

1 830., 

0.4, 

1 895- , 

0.5, 

1 970., 

0.6  , 

2030. • 

0.7* 

2130., 

0.8, 

2210. , 

0.85 

2500. , 

0.9, 

2800., 

1.0, 

LaCKUP=0, 

N&F<=2, 

TRANS! 1, 11= 

3.497, 

0.98 

1 .250, 

0.98 

FDU»=  5 .08 

, 0.98, 

xaRCOF=0-8, 

TL=167., 

CL=15 

CGH=5A.25, 

CGR=119. 3, 
CGLAT=0.0, 
PBHT=Ai».to, 
EYFHGT=55., 
WDTH=143 . ♦ 

Wl  = b7.  , 

WC  = 0.e', 

PBF=21B000.  1 
MAXL  = 1 , 

MAXlPk=‘», 

RMSd  »=  0.25, 

1 .0  , 

2.0, 

3.0  , 

A .0  , 

5.0  , 

B.0, 

7 .0  , 

8 .0  , 

VRIDEI  i,l)=  35  .25  , 
34.00, 
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21.13, 
lA. 10, 
11.00, 
lb.  75, 
10.50. 
10. 25, 
10.00, 


NHVALS  = 7, 
VUOB(  1 » = 


HVALS(1»= 


100.  , 

100., 

1 2., 

6 • f 

A., 

f 

A.  , 
0.0, 
9.0, 

1 0.0, 
12.0, 

15.0, 

20.0, 

A 0 . 0 , 


NSVAL  S=9 
SVALSm  = 


1 .. 

5.  , 
10  ., 

25., 

50. , 
1 00., 
2 00.  , 
A00.  , 
6 00., 

VOObSUl=  .08, 
.39, 
.7  7, 
1.93, 
3 .86, 
7.73, 
15,A5, 
30.91, 
A6  .3  6, 

$END 


NOhGT 

3 

NANG 

8 

NWOTH 

3 


CLRMI  N 

FCOMAX 

FOG 

HOV  ALS 

AVALS 

WVALS 

INCHES 

PCUNOS 

POUNDS 

INCHES 

RADIANS 

INCHES 

37.03 

8 9A  8 . 5 

37  2.  1 

3.15 

1 .95 

5.88 

i2A. A2 

27076  .2 

18A2.0 

15.75 

1 .95 

5.88 
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6.5  7 

89773. 8 

5211.1 

33  .46 

1295 

5.88 

37.03 

8 94  8.5 

394.3 

3.15 

2.48 

5.88 

2<*.38 

24473.2 

1604.8 

15  .75 

2.48 

5.88 

6 .7  2 

50  134. 8 

3800.0 

33.46 

2.48 

5.88 

37.03 

8 94  6 . 5 

399.0 

3.15 

2.69 

5.68 

2A.56 

16969.2 

1390.5 

15.75 

2.69 

5.88 

11.43 

32415.7 

3016.3 

33  .46 

2.69 

5.88 

36  .40 

8456 .0 

386.8 

3.15 

2.86 

5.88 

24.3  0 

17646.6 

1259.3 

15  .75 

2.86 

5.88 

.43 

30044.5 

2787.9 

33  .46 

2.86 

5.88 

38.22 

8281.7 

707.0 

3.15 

3.42 

5 .88 

21 .27 

18699.8 

2 24  6.!3 

15.75 

3.42 

5.88 

2.87 

30044.5 

2696.0 

33.46 

3.42 

5.88 

39.64 

4124.4 

224.7 

3 .15 

3.60 

5.88 

31.01 

13744.0 

1544.0 

15.75 

3.60 

5.88 

-1.30 

30616.3 

2642.9 

33.46 

3.60 

5 .88 

40.00 

3757.7 

174.5 

3 .15 

3.80 

5.88 

36.03 

13166.8 

982.9 

15.75 

3.80 

5.88 

20.01 

31  67  8. 1 

2626.5 

33  .46 

3.80 

5.88 

40.00 

1612.7 

30.6 

3.15 

4.33 

5.86 

39.64 

4149.3 

145.9 

15  .75 

4.33 

5.68 

37.79 

5566  .1 

-125.5 

33.46 

4.33 

5.68 

37.13 

9272.2 

484.4 

3 .15 

1.95 

29.88 

24.26 

12489.^ 

-316.4 

15  .75 

1.95 

29.88 

6.57 

79647.8 

4974.4 

33.46 

1 .95 

29.88 

37.13 

9272.2 

50  0.0 

3 .15 

2.48 

29.68 

24.2  2 

20072.6 

862.5 

15.75 

2 248 

29.86 

6.62 

51346.5 

4342.5 

33  .46 

2.48 

29. B8 

37.13 

9272  .2 

516.7 

3.15 

2.69 

29.86 

24.36 

20378.0 

1717.0 

15  .75 

2.69 

29.88 

11.70 

34  087.7 

3769.5 

33.46 

2.69 

29.  88 

36  .99 

8456.0 

527.7 

3.15 

2.86 

29.88 

24.57 

15926. H 

1465.5 

15  .75 

2.86 

29.88 

20.65 

30044.5 

3131.9 

J3.46 

2.86 

29.88 

37.17 

8448.1 

629.9 

3.15 

3.42 

29.88 

14  .79 

18895. 7 

1864.3 

15.75 

3.42 

29.88 

2.90 

30044.5 

304U.6 

33.46 

3.42 

29.88 

36.88 

7208.2 

-219.2 

3 .15 

3 .60 

29.88 

22.08 

31861.0 

2261.9 

15  .75 

3.60 

29.88 

-11.56 

34  784.1 

3152.8 

33.46 

3.60 

29.88 

36.71 

9361  .9 

1001.2 

3.15 

3.80 

29.88 

27.21 

20061.7 

1637.8 

15  .75 

3.80 

29.88 

3.49 

48  38  6.8 

4522.6 

33.46 

3.80 

29«88 

38.6b 

5964.9 

196.1 

3.15 

4.33 

29.88 

37.04 

7279.0 

- 102.6 

15.75 

4.33 

29.88 

35. Ul 

12253.2 

759.6 

33  .Hb 

4 .33 

29.88 

37.17 

9272.2 

23  1.1 

3.15 

1 .95 

141.60 

24.77 

2 0 81  *..9 

1040.4 

15.75 

1.95 

141 .60 

6.59 

79704.9 

440  1. 1 

33  .46 

1 .95 

141.00 

37.17 

9272.2 

236.3 

3.15 

2.48 

141.60 

24.44 

35968.2 

186  1.0 

15.75 

2.48 

141.60 

6.62 

52  81  5.6 

364  8 . 1 

33  .46 

2.48 

141.60 
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37.17 

9 272.2 

24  1.8 

3,15 

2 .69 

141.60 

27603.5 

1707.9 

15.75 

2.69 

141.60 

11.59 

34088.9 

3306.2 

33  .46 

2.69 

141.60 

36.93 

8456.0 

429.9 

3.15 

2.86 

141  .60 

2A.A6 

18740.7 

1827.2 

15  .75 

2.86 

141.60 

20.55 

30  044.5 

3062.1 

33  .46 

2.86 

141.60 

3A  .03 

8295.3 

471.2 

3.15 

3.42 

141  .60 

22.76 

19012.2 

2295.4 

15  .75 

3.42 

141.60 

20. A6 

30044.5 

3493.0 

33.46 

3.42 

141.60 

34.12 

9326.8 

741.4 

3,15 

141 .60 

16  .75 

32  341. 8 

2497.8 

15  .75 

3.60 

141.60 

9.3B 

34  368.4 

4266.5 

33  .46 

3.60 

141 .60 

33.89 

9787.3 

452,9 

3.15 

3.80 

141.60 

12.40 

38  383.1 

202  7.9 

15.75 

3.80 

141.60 

-1  .83 

4 8 92  6 .4 

3741.5 

33.46 

3.8tf 

141  .60 

33.91 

8474.2 

608.2 

3.15 

4.33 

141.60 

10.90 

18269.4 

955.9 

15.75 

4.33 

141.60 

-23.03 

79892  .1 

5167.6 

33.46 

4.33 

141 .60 

PAGE  B-6 


337 


R-2«J58,  VOLUME  I 

VtHluLE  tnPOT  file  FOR  PROGRAM  NRMM  - H151  JtEP 


PAGE  B-7 


M151  JEEP 

NATO  MOBILITY  MODEL 
TEST  VEHICLE 
SVEHICLE 
WI*A5.8, 

LOCDIF=0, 

NAMBLV=2, 

NVEHI 1»=1, 

NVEH(  2)  = 1, 

WGHT  (I  »=1740  .lit 
W&HT(2»  = l460.k), 
!P{1  »=I  . 

IP(2>=1 , 

IB(1  » =1  , 

IB(2  » = 1 » 

RDIAMIl  > =16-0, 
RDIAM{2) =1 6.0, 
RIMW(1»=4.5, 
RIMM(2)=4.5, 
ICONSTI 11=1, 
IC0NST(2I=  1, 

TPLYI  II  =6-0. 
TPLY(2I=6.0, 

REVMI 11  =720.0, 
PEVM  ( 21  = 72  0.  0, 
01AM  ( 1 1 = 30  .8, 
OIAWI 21=30. 8, 
SECTW( 11 =7  .15, 
SECTM(2 1=7.15, 
SECTM(ll  = 7.40, 
SECTH(2  I =7-40, 
TPSI  ( 1,  21  = 15  .0, 
TPSI (2, 21 =15  .0  , 
TPSI  (1,11=  15.0, 
TPSI (2,1 1=15 .0, 
TPSI I 1,3»=  25.0, 
TPSI(2, 31=25.0, 
DFLCT(  1,1) =1.31, 
OFLCTd  ,2)  =1  .31, 
DFLCT(2,1 1=1  .14, 
DFLCT(2,2I=1  .14, 
OFLCTI 1 ,3)  =1  .0, 
DFLCT(2.3»  =1  .0, 
NMHL  ( 1 ) =2, 
NWHL(2)=2, 

I 0(1  I =0, 

10(21=0, 

CLRMIN(  11=11.4, 
CLRMIN(2»=  11.4, 
WTE( 11=45.6, 

WTEl  21  = 45.6, 

WT(1  I =53.0  , 
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WT(2>=53.k), 

NCHAINI  1>  = 0, 
NCHMlN(2»  = i2, 
HPNET=73.92, 

ACD=1  .2, 

CD=1. 2, 

AXLSPI  1 I =85., 
AVGC=120., 

CIO=141 .5, 
IOIESL=l., 

NCYL=4.  , 

NENG  = 1 . . 

QMAX=11  5., 

IT(l»=0, 

IT(2>=0, 

PFA=22.  5, 

IAPG=0, 

1PDWER=17, 
POWEfi<2,l»  =2195.0, 
POWER(2,2»=2185.0, 
POWERI2,3>  =2050.0, 
PQWER(2.4)=1815.0, 
POWER!  2, 5»  =1205.0, 
POWER(2, 61=1180.0, 
POWER!  2,7)  =1  085*0, 
PrjWER(2,8)=870.0, 
PGmER<2,9)  =6  60.0, 
POWER{2, 10  »=  650.0, 
POWER(2,11»  = 615.0, 
POWER(2,12  )=560.0, 
POWER! 2,131=420.0, 
P0WER!2,14  )=385.0, 
POWER!  2,15  1=355.0, 
POWER!  2, ib  1=340.0, 
POWER(2,17)=310.0, 
POWERll, 11=0.0, 
POWER!  1 ,2)  =4.9, 
POWER! 1,31=7.5, 
POWER!l  ,4)  =10.0, 
POWER!1,5)=10,1, 
POWER!  1 ,61  =12.0, 
POWER! 1,7) =15.5, 
POWER!  1 ,8)  =19.8, 
PQWER(1,9)=19.9, 
POWER! 1 ,101=25.0, 
POWER(l,ll )=30.0, 
POWER!!  ,121=33.0, 
P0WER!1,13)=33.1, 
PQWER!i  ,1'*)=40.0, 
POWER! 1,15  ) = 45.0, 
POWERll ,161=50.0, 
POWER(i,17)=56.0, 
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ITRAN=0, 

IENGIN=1 0, 

ENGINEd,!  )=80U.0, 
ENGINEi 1 »2»  = 1200.0  , 
ENGINE!  1 ,3»=1600.0, 
ENGINE! 1,41=2000.0  , 
ENGINE!!  ,51=2400.0  , 
ENGINE! i ,6  1 = 2800.0  , 
ENGINE!  1 ,71=32  00.0, 
ENGINE!  1,8  1 = 36  00.0  , 
PNGIN  = I 1 ,91=4000.0  , 
ENGINE! 1,101=4400.0, 
ENGINE!  2,11=115.0, 
ENGINE!2,21=115.0, 
ENGINE! 2,31=115.0, 
ENGINE! 2,4 1=11 5.0, 
ENGINE!  2,51=112.0, 
ENGiNE!2,6l=106.0, 
ENGINE!  2,71  = 103.0, 
ENGINE12, 81=96.0, 
ENGINE!  2,91=88.0, 
ENGINE!2, 101=80.0, 
ITCASE=y. 

TCASE! 11  = 1 .0, 
TCASE!21  =1  .0, 

NGR=4, 

TRANSIl ,11 =5 .712 , 
tRANS!1  ,21=3.179, 
TRANS!  1 ,3!  =1  .674, 
TRANS! 1,41=1.000, 
TRANS!2,11 =0.9 , 
traNS!2,2I=0.9, 
TRANS!  2 ,31  =0.9  , 
TRANS!  2,41  =0.9, 

FO!l  1 =4 .86  , 
FD!2l=0.9, 

LOCKUP=0  , 

XBRCQF=0.7 , 

CL=9.1, 

VAA=66.0, 

VDA=3  7.0, 

TL=85  .0  , 

W0Th=64 .0, 

CGH= 10. 3. 

CGR=42.0, 

CGLAT=0.0, 

PBHT=20.0, 

EYEHGT=52.5, 

MC=0.0. 

PBF=3200 .0 , 

MAXL=1  , 

MAXIPR=9, 
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RMS(  1 I =0.25, 

RMS(  2»  = 1 .0  , 
hMS( 3)  = 2.0  • 
RMS{4I  = 3.0, 

RMS(  51=4.0  , 
RMS(6>  = 5.0  , 

RMS( 71=6 .0. 

RMS(  8»  = 7.0, 

RMSI  9»=8.0, 
VRIDEl  1,11=76.5, 
VR  IDE<2,1 ) =21.0, 
VRIDE( 3,1»=9.5, 
VRI0E<4,1»  =5.1  , 
VRIDE(5,i)=2.0, 
VRIOEI6«l)  =2.0  , 
VRIDE(7, 11=2-0, 
VRIOEIS ,11 =2.0, 
VRIDE(9,i) =2.0, 
NHVALS=7, 

VOOB{  H = 102.  0, 
VCiOBi  21=20  .0, 
VOQB( 3i=6.0, 
VOO8{4J=4.0, 
vooB(  5>  = 2.  e, 

VOOB(6>=1  .0, 
VOO6(7»=1.0, 
HVALS(U=0.01, 
HVALS(*:  >=4  .0, 
HVALS(3>=8 .0, 
HVALS(4)  =1  2.0, 
HVALS<5)=16.0, 
HVALS(6  1=20.0, 
HVAL5<7>  = 4 C.0, 
NSVALS=16, 
VUOBSn)=15.0, 
V006S(21  =15.0, 
VOOBS 13 )=15.0, 
V00BS(4) =1 5.0, 
VOOBS{5)=15.0, 
VOOBSI  6)  =1  5.0, 
VGOBS(7)=15,0, 
VQOBSI8)=l 5.0, 
V00BS(9) =1 5.0, 
VOOBSI  101  =15.0, 
VOOBS(ll»=15-0, 
VOOBSi 12)=15.0, 
VOOBSI  131  = 15.0, 
VOOBS( 14J  =15 .0  , 
VOOBS(l5>=  15  .0, 
VOOBSI 16»=15  .0  , 
SVALS(U=1  .0, 
SVALS(2>  =2  .0^ 
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SVALS(3>  =3.0» 

SVALS(4)=A.0, 

SVALS(5»  =5.0, 

SVALS(6)=6.0, 

SVALS(7>=7  .0, 

SVALS(fa>=8.0, 

SVALS{9»=9.0, 

SVALS(10»=10.0, 

SVALSI  U»  = ll  .0, 

SVALSI 12 1=12.0, 

SVALS( 13»=  13.0, 

SVALS(141=15.0, 

SVALS(15»=20.0, 

SVALSl  16  » = 40 .0, 

I 

NOHGT 

3 

NANG 

8 

NWDTH 


3 


CLRMIN 

FOOMAX 

FUG 

HOV  ALS 

AVALS 

WVALS 

INCHES 

POUNDS 

POUNDS 

INC hES 

RADIANS 

INCHES 

6-85 

941 .6 

3 1.2 

3.15 

1 .95 

5.88 

-3.75 

2179.6 

127.1 

15.75 

1-95 

5.88 

-21.21 

2 20  8 . 5 

237.5 

33  .46 

1.95 

5.88 

6 .85 

1 0L5 .5 

3 5.6 

3 .15 

2.48 

5.88 

-3«  54 

1 £61  .2 

118.7 

15  .75 

2.48 

5.88 

-13.36 

96  0.9 

160.6 

33.46 

2.48 

5.88 

6.85 

6V6.1 

25.5 

3.15 

2.69 

5.88 

-2.31 

696  .7 

124.9 

15.75 

2,69 

5*88 

-3.95 

6*.  6 • 3 

98.2 

33.46 

2.69 

5.88 

7.45 

41  1.2 

34.3 

3.15 

2.86 

5.88 

2.93 

404.  0 

6 9,7 

15.75 

2,86 

5.88 

2.61 

799.3 

98.3 

33  .46 

2.86 

5.88 

7.19 

417.7 

40.9 

3.15 

3.42 

5.88 

5.50 

444 . 5 

8 8.7 

15.75 

3.42 

5.88 

3 .1  0 

799.3 

103.9 

33,46 

3.42 

5 .88 

7.42 

704.7 

3 5.5 

3 .15 

3-60 

5.88 

1 .2w 

757.6 

135.1 

15.75 

3.60 

5.  68 

-4.83 

83  9.1 

135.3 

33.46 

i«60 

5.68 

8 .20 

662.5 

16.3 

3.15 

3.80 

5.88 

.08 

1 170.4 

180.3 

15.75 

3.80 

5 .88 

-9.54 

1 301  .5 

240.0 

33.46 

3.80 

5.88 

9.65 

344.3 

4.8 

3.15 

4-33 

5.88 

5.79 

1 150.8 

43.5 

15  .75 

4.33 

5.88 

- .23 

2378.0 

146.0 

33.46 

4,33 

5.86 

6.85 

592.1 

-2.8 

3.15 

1.95 

29-88 

-3.75 

2163  .4 

99.1 

15  .75 

1 .95 

29.88 

-21.46 

2029.6 

150.9 

33  ,46 

1.95 

29.88 

6.85 

1 01  5 . 5 

29.3 

3.15 

2.48 

29.88 

-3.75 

1 £52  .4 

93.4 

15.75 

2.48 

29,88 
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1 110.3 

109.8 

33  .46 

2.48 

29.88 

6 .85 

69  8.1 

24.7 

3.15 

2.69 

29.88 

.59 

658  .0 

69.2 

15.75 

2 .69 

29.88 

.52 

83  7.9 

116.9 

33.46 

2.69 

29.88 

7.45 

41  1 .2 

28.8 

3.15 

2.86 

29.88 

4.86 

443  .4 

50.1 

15.75 

2.86 

29.88 

4.75 

799.3 

10  5.0 

33  .46 

2.86 

,29. 88 

7.29 

417.6 

31.1 

3.15 

3-42 

29.88 

5 .40 

444.5 

52.0 

15  .25 

3.42 

29.88 

4.92 

799.3 

108.6 

33.46 

3.42 

29.88 

6.83 

708.6 

39.9 

3 .15 

3.60 

29.88 

.78 

761.3 

119.2 

15.75 

3 .60 

29.88 

-2  .82 

84  2.2 

137.0 

33.4t6 

3.60 

29.88 

6.70 

99  1.4 

3<*.9 

3 .15 

3.80 

29 .88 

-2.46 

1 178 .4 

145.1 

15.75 

3.80 

29.88 

-10.26 

1 318.0 

195.9 

33  .46 

3.80 

29.88 

6.68 

575.1 

4.9 

3.15 

4.33 

29.88 

-3  .01 

2 40 1 . 8 

157.0 

15  .75 

4.33 

29.88 

-23.83 

2 551  .4 

228.7 

33  .46 

4.33 

29 .88 

6 .tt5 

541 .3 

-6,0 

3.15 

1.95 

141.60 

-.50 

242  8.4 

87.4 

15.75 

1.93 

141.60 

- 1 1 .40 

2556.  1 

12  8.6 

33.46 

1.95 

141.00 

6.85 

1 09  3.9 

18.1 

3 .15 

2.48 

141 .60 

2.04 

1170.6 

6 8.6 

15.75 

2.48 

141.60 

-.73 

1 304.9 

145.9 

33.46 

2.48 

141.60 

0.85 

707.5 

16.9 

, 3.15 

2-69 

141.60 

4.4  0 

75  8.7 

75.1 

15.75 

2.69 

141.60 

3 . 83 

837.9 

132,5 

33.46 

2.69 

141.60 

7.45 

41  6 .8 

17.0 

3.15 

2 .86 

141.60 

6.75 

443 . 4 

65.4 

15  .75 

2.86 

141.60 

6.88 

799.3 

103.0 

33  .96 

2.86 

i41 .60 

7.67 

417.2 

19.1 

3 .15 

3.42 

141.60 

7.28 

388.0 

6 5.9 

15.75 

3.42 

1 41 • 60 

6.85 

799.3 

106.8 

33.46 

3.42 

141  .60 

6.84 

707.1 

20.1 

3 .15 

3.60 

141.60 

4.25 

76  0.1 

78.2 

15  ,75 

3.60 

141. 60 

3.8  8 

83  9.7 

135.  9 

33  .46 

3.60 

141.60 

7.08 

1 094.0 

1 8.6 

3.15 

3.80 

141.60 

2 .04 

1168,7 

83.3 

15  .75 

3.80 

141  .60 

- . 60 

1312.2 

164.2 

33  .46 

3 .80 

141.60 

6.80 

1 131.^ 

30.3 

3.15 

4,33 

l4l .60 

-.03 

2397.4: 

8 0.3 

15.75 

4.33 

141.60 

- 15.46 

2 54  9.8 

14  7.3 

33.46 

4.33 

141.60 
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APPENDIX  C 


TERRAIN  INflUT  FILES  FOR  PROGRAM  NRHM 
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k-2a58,  VOLUME  I 

AREAL  TERRAIN  INPUT  FILE  - CLASS  INTERVAL  FORMAT 


1 

1 

1 

1 

11 

llllllll 11 111111 

2 

1 

5 

5 

51 

11  nil  11  iMii  111 

3 

1 

6 

6 

6 1 

11  mill  11 111111 

4 

1 

8 

8 

81 

llllllllllUliil 

5 

11010101 

1111111111111111 

6 

1 

1 

1 

1 2 

llllllllllUliil 

7 

1 

± 

1 

1 3 

11 11 11 11 11  mill 

8 

1 

1 

1 

14 

iimiiiiiiii  111 

9 

1 

1 

1 

16 

iimiiiiimiii 

10 

I 

]_ 

1 

1 7 

1 ill  11 11 U 111111 

11 

2 

1 

1 

1 1 

llllllllllUliil 

12 

2 

') 

5 

51 

1111111111111111 

13 

2 

b 

6 

6 1 

llllllllUllllll 

14 

2 

a 

8 

81 

iiiiii  iiiimui 

15 

21010101 

illlillllllllUl 

16 

2 

1 

1 

12 

1111111111111111 

17 

2 

1 

1 

13 

iimiiiiiiiiiii 

1 3 

2 

1 

1 

14 

iiiiiuiiiiiiui 

19 

2 

1 

1 

16 

llllllllllUliil 

20 

2 

1 

1 

17 

iiiiiiiiiimui 

21 

1 

1 

1 

1 1 

11  iiiiiiii  mill 

22 

1 

1 

1 

11 

1111113111111111 

i 

1 

1 

11 

1111115111111111 

24 

1 

1 

1 

1 1 

1111117111111111 

25 

1 

1 

1 

1 1 

1111119111111111 

26 

1 

i 

1 

1 1 

11  11111666 6655S1 

27 

1 

1 

1 

11 

1111111887655561 

28 

1 

1 

1 

1 1 

11 11111666666661 

29 

1 

1 

1 

^1 

1111111888876551 

30 

1 

1 

1 

11 

11111118  88887651 

31 

1 

1 

1 

1 111433311666665551 

32 

1 

5 

5 

5 111433311  8876555S1 

33 

1 

5 

5 

51114  33311666666661 

34 

1 

1 

1 

1 11143321 1887655551 

35 

1 

5 

5 

511143321 1666665551 

36 

1 

1 

1 

1111135211111111111 

37 

1 

1 

1 

1111135221111111111 

38 

1 

1 

1 

1 1113352211  11111111 

39 

1 

1 

1 

1 111535221111  111111 

40 

1 

1 

1 

1 11173522  1111111111 

41 

1 

1 

1 

1113437221111  111  111 

42 

1 

i 

1 

1 113437321111 111111 

43 

1 

1 

11134378211  11111  U1 

44 

1 

L 

1 

11 

1111111111111112 

45 

1 

I 

1 

1 1 

11 111111U111U3 

46 

1 

I 

1 

1 1 

111111  1111111 116 

47 

1 

t 

5 

5 1 

1111111111111112 

48 

1 

5 

51 

1111111111111113 

49 

1 

( 

5 

51 

1111111111111116 

50 

1 

/ 

7 

71 

111111111:1111118 

- FILE  CKK 
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kOAD  TtRkAiN  INPUT  FILE 


file  ckkfo 
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1 

1 

1 

A 

300 

3 00 

300 

300 

31000100010001000 

I 

70 

0.1000 

e. 

2 

1 

A 

300 

300 

300 

300 

7 

500 

500 

500 

500 

2 

A0 

0.1100 

3 

2 

1 

A 

300 

300 

3 00 

300 

7 

500 

500 

500 

5M 

2 

55 

0.1200 

A 

2 

1 

1 

300 

300 

300 

300 

3 

500 

500 

500 

500 

2 

25 

0.1300 

5 

3 

1 

A 

300 

300 

300 

300 

3 

250 

^50 

250 

250 

8 

55 

0.1A00 

6 

3 

1 

A 

300 

300 

300 

300 

15. 

500 

500 

500 

500 

8 

55 

0.1500 

7 

3 

1 

A 

300 

300 

300 

300 

3 

500 

500 

500 

5 00 

25 

40 

0.1600 

6 

3 

1 

A 

25  0 

190 

80 

80 

3 

250 

250 

250 

250 

B 

A0 

0.1700 

9 

A 

i 

A 

250 

190 

36 

36 

3 

250 

25  0 

250 

250 

8 

55 

0.1800 

10 

A 

1 

A 

20  0 

200 

200 

200 

15 

250 

250 

250 

250 

8 

55 

0.1900 

1 1 

A 

1 

A 

200 

200 

80 

80 

15 

250 

250 

250 

2 50 

8 

55 

0.2000 

12 

A 

i 

A 

250 

200 

200 

200 

3 

250 

250 

250 

250 

25 

A0 

0.2100 

13 

A 

i 

A 

250 

200 

200 

200 

3 

79 

79 

79 

79 

10 

30 

0.2200 

U 

A 

1 

A 

250 

200 

200 

200 

3 

250 

25  0 

250 

250 

10 

9 

0.2300 
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APPENDIX  D 


SAMPLE  OUTPUT  OF  PROGRAM  NRMM 

This  Appendix  contains  output  generated  by  executing  NRMM  using 
the  vehicle  and  terrain  input  files  of  Appendices  B and  C.  In  all  cases, 
the  control  variable  DETAIL  was  set  to  2.  This  results  in  output  of  the 
control,  scenario  and  vehicle  data  through  NAMELIST  directed  WRITE’S. 
This  is  followed  by  the  speed-made-good  as  described  in  Section  II. E. 

The  control  variable  SEARCH  was  set  to  0, 

For  the  Areal  terrain,  the  scenario  variables  MAP  and  ISEASN  were 
set  to  71  and  3 respectively.  For  the  Road  terrain,  the  scenario  inputs 
were  MAP  = 11,  ISEASN  = 3 and  MONTH  = 1.  The  default  values  were  used 
for  all  other  control  and  scenario  variables. 

These  outputs  are  presented  as  examples.  The  terrain  files  are 
artificial.  They  were  made  up  to  systematically  exercise  portions  of  the 
Model. 
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SAMPLE  OUTPUT  OF  PROGRAM  NRMM  - VEHICLE:  M60A1  , TERRAIN:  CKK 
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$CONTRL 
DETAIL  = 2, 
KSC6N  = 1, 
KVEH  = 1, 
Kill  = 0, 
KI  12  = 0, 

K1I3  = 0, 
KHA  = 0. 
KI 15  =0, 

KII6  = 0. 
KII7  = 0, 
KII8  = 2, 
KII9  = 0, 
KI 110  = 0, 

KI 111  = 0, 

KIil2  = 0, 
KII13  = 0. 
KIIK  = 0. 
KII15  = 0, 
KII16  = 0. 
KII17  = 0, 
KMAP  = 0, 
KTPO  = 0. 
KIVl  = 0t 
KI V2  = 0# 
KIV3  = 0f 
KI  VA  =01 
KIV5  = 0f 
KT  V6  = 0 » 
KIV7  = 0, 
KI  V8  = 0* 
K1V9  = 0, 
KIV10  = 0f 
KIVU  = 0, 
KI  V12  = 0, 

KIVU  = 3, 
KIVIA  = 0, 
KIVU  = 0, 
KIVU  = 0, 
KIV17  = 0, 
KIVlb  = 0, 
KIVU  = 0, 
KIV2  0 = 0» 

KIV21  = 0. 
NTUX  = 1, 
SEARCH  = 0, 
SEND 


R-2058,  VOLUME  I 

SAMPLE  OUTPUT  OF  PROGRAM  NRMM  - VEHICLE:  M60AU  TERRAIN?  CKK 


ISCENAR 

COHES  = .5E-0if 
DCLMAX  = .5e^0l2, 
GAMMA  = .2E«-00f 
lOVER  = 9, 

ISEASN  = 3, 

ISURF  = I, 

I SNOW  = 0, 

LAC  =1, 

MAP  = 71  , 

MAPG  =1, 

MONTH  = 1, 

NOPP  = 0, 

NSLIP  = 0, 

NTRAV  = 3, 

NTUX  = 1, 

PHI  = .21Ef02, 

REACT  = .5E+00, 
RDFOG  = ,1E*-0A, 
SFTYPC  = .9E+-02, 
VBRAKE  = .5E^01» 
VI  SMNV  = .2E4-01, 
VLIM  = .55E*02, 
ZSNOta  = .3E+01t 
$END 
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SAMPLE  OUTPUT  OF  PROGRAM,  NKM<  - VEHICLE:  MbiSAl.,  TERRAIN:  CKK 


iVEHICLE 

AlO 


A SHOE 

.194E^03, 

0. 

■ 0 , 

0< 

,0* 

0.0, 

0.0, 

0, 

.0, 

0.3, 

0.0  , 

0.0, 

0.0, 

0. 

0* 

2.0,  0.0, 

0.0, 

0.0, 

0. 

.0, 

0. 

>0f 

0.0, 

0.0, 

0. 

.0, 

AVGC  = 

0.0, 

AXLSP 

0.0, 

0.0, 

0. 

.0, 

0. 

.0, 

0.0, 

0.0, 

0. 

.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0. 

0, 

0.0,  0.0, 

0.0, 

0.0, 

0. 

.0, 

0, 

► 0# 

0.0, 

0.0, 

CD 
CGH 
CGLAT 
CGR 
CiD 
CL 

CLRMIh 
id.  0«  D 
CON  VI 
. i 8 1 5E  ♦•04 


= .5A25E<-02, 

= 0.  e, 

= .1195E«-03, 

= .179  IE  ♦04, 

= .15Ef02, 

= 0.0,  0.0,  0.0 
0,  0.£,  0.0,  0.0 


0 . 0a 

0.0, 


0.0, 

0.0, 


0.0 


0.0,  0.0, 

U.K,  V <*V  f U.W,  U.  0,  0.0,  0.0, 

- .1  875E«-04,  0.0,  .U5E4-04,  .lE«-00,  .1825EI-04,  .2E«'00, 

04,  .3Et-00.  .183E»04,  .4E<-00a  .1895E*-04a 

.bEf00,  .197E«-04,  •6E4-00,  •203E*-04.,  .7E4-00,  .2UE«-04,  .8EA00, 
.221E4-04,  .B5E«-00,  .2:iE»04,  .9Et-00, 

• 28E^04«  .IE'^01,  <2*^,  0.0,  0.0,  0.0,  0.0,  0.0,  0*0,  0.0,  0).0t 

0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 


0.0,  0. 0, 

.2E^00, 


0.0, 


0.0. 


0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 

CONV2  = .368E^01,  0.0,  .3125E4-01,  .lE«00t  .245EK01,  .2E«‘00,  .2228E>-01, 
.3E*-02.  .195E4-31,  .4EA00,  .167E«-01, 

.5E«-00,  .142E4-01,  a4E«-00,  .122E«-01,  .7E«-00,  .105E»01,  .8E*00, 
.98E»0a,  .85Ef00,  . 97E*00,  .9E«-00, 


.97E  + 00, 

.1E*01 

• 0.,0 

1,  0. 

0,  0. 

0,  0. 

0,  0 . 

0,  0. 

0,  0. 

0,  0. 

0,  0.0, 

0.0, 

0 

.0,  0 

.0,  0 

. 0 , 0 . 

10 , B» 

0,  0 

.0,  0 

.0, 

0.  2, 

0.0, 

0.0, 

0 . Jd, 

0.0, 

0.0, 

0.0, 

0.0  , 

0.0  , 

dflct 

= 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.C, 

0.  0. 

0 .0, 

0.0, 

0.0% 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0%|0« 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0* 

0.0, 

0.0. 

0.0, 

0.0, 

0 .0% 

0.0, 

0.0, 

0.0, 

0.  2, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.!S 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

OIAM 

= 

0.0. 

0.0. 

0.0, 

0.0» 

0.0, 

0.0, 

0.0, 

01.  0, 

0.0, 

0.0, 

0.0, 

0.0., 

0.0, 

0.0. 

0.0  , 

0.0, 

0.0, 

0.0  , 

0.0, 

DRAFT  = 0.0, 

ENGINE  = .12E*04,  .i61E*04,  ,.13E  + 04,  .l645E«-0<t,  .14E  + 04,  .167E*i4, 

.i5E  + 0^.  .l682E*-04,  .16E+04,  .lt>8E*04,  ,17E>04, 

.167SE^04,  .18E»04,  .1655E^04,  ..19E«-04,  .163E1-04,  .2E«-04, 
.16E*04,  .21E<-04,  .156E+04,  .22E«'04,  .1515E*04, 

.23E+04.  .147E«04,  •24E«-04,  .142E4-04,  0.0,  0.0,  0.0,  0.0,  0.0, 


0. 

kJ  f 

0. 

0, 

2. 

0,  0.k 

i, 

0. 

0, 

i:.30 

i,  0. 

0, 

0. 

0, 

0. 

e. 

0.0, 

0. 

> 0 , 

0. 

► 0^i, 

0.0, 

0. 

>0, 

0.0, 

0. 

.0, 

0. 

>0f 

0. 

.0, 

01 

.0, 

0. 

0, 

0. 

0, 

0 

.0, 

3. 

2. 

0.0, 

0. 

.0, 

0. 

.0, 

0.0, 

0, 

.0, 

0.0, 

0. 

0. 

0.0, 

0 < 

.0, 

0. 

1 0 , 

0.0, 

0. 

>0, 

0.0, 

0. 

>0, 

0. 

.0, 

0. 

.0, 

0< 

.0, 

0. 

0, 

0. 

it/. 

0 

.0, 

0. 

0, 

0 *0, 

0. 

.0, 

0. 

>t0* 

0.0  « 

0< 

.0, 

0.0, 

2. 

2, 

0.0, 

0. 

.0, 

0. 

0.0, 

0. 

*0  , 

0.0, 

0. 

,0, 

0. 

.0, 

0. 

.0. 

0. 

.0, 

0. 

8, 

0. 

0, 

0 

.0. 

0. 

2, 

0.0, 

0. 

.0, 

0. 

ft  A f 

0.0, 

EYEHGT  = .55E<-02, 

FD  = .508E  + 01,  .98E*00, 
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SAMPLE  OUTPUT  OF  PROGRAM  NRMM  - VEHICLES  M6iiiAl,  TERRAINS  CKK 
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FORDU 
GROUSH  = 
0.0.  0.t;* 

HPNET 
HVALS  = 
0«0.  0.i(9. 

lAPG 

Ib 

ID 

lOIESL  = 
lENGlN  = 
ICONST  = 
ICONVl  = 
IC0NV2  = 
IP  = 

IPOWER  = 
IT 

ITCASE  = 
ITRAN 
iTVAR 
LOCDIF  = 
LOCKUP  = 
MAXI  PR  = 
MAXL 

NAM8LY  = 
NBOGiE  = 
NCHAIN  = 
NCYL 

NE  NG  = 
NFL  = 

NGR  = 

NHVALS  = 
NPAD  = 
NSVALS  = 
NVEH 
NWHL 

NWR  = 

PBF  = 

PBHT 
PFA 


= 0.0 


.15E«-01»  0.0.  0.0*  0.0.  '0.0.  0.0.  0..0,  040.  0.0,  0.0% 

0.0.  0.0,  0.0,  0,.i,  0.0,  0.0,  040, 

.6<.3Ef03, 

0.0.  .9E4-01,  .1E4'02,  .12E4-02,  .15E«-02,  .2E'«-02,  .AE*02,  0.0i, 

0.0,  0.0,  0.0,  0.0%  0.0,  0.0,  0.0, 

0. 0,  0.0,  0.0,  0,0k  0.0.  0.0.  0.0,  0.0. 

1 . 

1.  0.  0,  0.  0.  0.  #,  0,  0.  0,  0,  0,  0,  0,  0,  0.  0.  0.  0.  0, 

0.  0.  0,  0.  0.  0,  4%  0,  0,  0,  0,  0,  0.  0.  0.  0.  0.  0.  0.  0, 

.1E«>01, 

13  . 

0.  0,  0.  0.  0.  0,  0,  0.  0.  0,  0.  0,  0,  0.  0.  0,  0.  0.  0.  g, 

12  . 

12. 

1.  0.  0.  0.  0.  0.  0,  0,  0,  0.  0.  0,  0.  0,  0.  0.  0,  0,  0,  g, 
0. 

0.  0.  0,  0.  0.  0,  0 . 0,  0,  0.  0,  0.  0.  0,  0.  .0.  0,  0,  0,  g, 

1, 

1. 

0. 

0, 

0, 

9. 

1. 

1, 

12,  0,  UV  0,  0.  0.  0.  0,  0.  0,  0,  0,  0,  0,  0.  0,  0,  0.  0.  0. 
0*  0.  0.  0.  0.  0.  0,  0'.  0,  0,  0,.  0,  0.  0,  0,  0.  0.  0.  0,  g. 
.12E«-02, 

.1  E4-01  . 

1.  0.  0,  0. 

2. 

7, 

1.  0,  0.  0. 

9, 

0.  0.  0,  0.  0.  0.  0,  0,  0,  0,  0.  0,  0.  0-,  0,  0.  0.  0.  0,  S., 

0.  0,  0.  0.  0.  0.  0,  0.  0.  0,  0,  0,,  0,  0,  0.  it)  f 0.  0.  0,  g, 

0. 

.218Ef36, 

.A5E«-02, 

.92E»-02, 


0,  0.  8,  0,  0.  0.  0,  0,  0»  0#  0,  0,  0.  0.  0,  8. 

0,  0.  0.,  0,  0.  0.  0.  0,  0.  0,  0.  0,  0.  0,  0,  8., 


POWER 

0.0, 

0.0. 

0.0. 

0.0% 

0.0, 

0.0. 

0.0. 

0.0, 

0.0, 

0.0, 

0.0. 

0.g 

0.0, 

il^  * i6>'  9 

0.0. 

0 .0, 

0.0. 

0.0% 

0.0, 

0.0. 

0.0, 

0.  0. 

0.0, 

0.0, 

0 . 0% 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0. 

0.0 

0.0. 

0.0, 

0.0, 

0.0, 

0.0i 

0.0, 

0.0, 

0*0. 

0.0, 

0.0, 

0.0. 

0 » 0<% 

0.0, 

0.0, 

0.0r 

0.0. 

0.0, 

0.0. 

0.0, 

0.S 

0.0, 

0.0, 

0.0, 

0 .0  . 

0.0. 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0 .'0% 

0.0. 

0.0. 

0.0. 

0.0, 

0.0, 

0.0. 

0.0. 

0.0 

0.0, 

0,0, 

0.  0, 

0.0, 

0.0. 

0.0, 

0.0. 

0.0. 

0.0, 

0.  0. 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

,/•  0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0 

0.0, 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0. 

0.0. 

0.0, 

0.0. 

0.0. 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

0.0 
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0.d. 

0.0. 

0.0. 

0 ..  0 , 0.0. 

0.0^ 

0.0, 

0.0, 

0.0, 

0.  0, 

0.0,  0.0. 

0.0# 

0.0  , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

U . ii)  • 

0 .0  , 

0.0. 

0 .0.  0.0 . 

0.0, 

0.0, 

0.0, 

0.0, 

0.  0, 

0.0.  0.0, 

0.0, 

0 .0  , 

0.0, 

0.0, 

0^0, 

0.0, 

0.0, 

0.0  , 

0. 0« 

0.  k?« 

0.0, 

0.0. 

K/  .0  , 0.0. 

0^0, 

0J0, 

0.0, 

0.0, 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0  , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0« 

0.0. 

0.0, 

0.0. 

0.0,  0.0, 

0 .0, 

0.0  , 

0.0, 

0.0, 

0.0. 

0.0.  0.0, 

0.  0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.1, 

0.0. 

0.0, 

0.  0, 

0.0.  0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0.  0.0, 

0.0, 

0J0, 

0.0, 

0.0, 

0W0  , 

0.0, 

0.0, 

0.0, 

0.0, 

0*.0. 

0.0. 

0.  0. 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.  0. 

0.0,  0.0, 

0.0» 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

k;.0. 

0.0, 

0.  0. 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.  0. 

0.0,  0.0. 

0.0, 

0.0  , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0. 

0.0. 

0.0.  0.k), 

0.0. 

0.0  , 

0.0, 

0.0, 

0.fi, 

0.0,  0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

. 0 , 

0.£, 

0.0,  0.ki. 

0.0, 

0.0. 

0.0, 

0.0, 

0.0, 

0.0.  0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0 ..0  , 

0.0. 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.  £. 

0.0,  0.0. 

0.0^ 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0t 

0.0, 

0.0. 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0,  0.0. 

a.0. 

0.0, 

0.0r 

0.0, 

0.  0. 

0.0,  0.0. 

0.06 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0. 

0.  0. 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0.  0.0, 

0.<0« 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

0.'0.  0.0. 

0 

0.0, 

0.0, 

0.0, 

0.0. 

0.0.  0.0, 

OMAX 

= 

. lt>82E4-04. 

RDIAM 

0.0. 

0.0.  0.0. 

0 .0  , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0. 

0.0,  0.0. 

0.0, 

0.0, 

0.0, 

RE  VM 

= 

.832E*-03.  0.0, 

0 • 0', 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

RTMW 

= 

0.0. 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0 .0, 

li  m k>  f 

0.0,  0.0. 

0.0, 

0.0, 

0.0, 

RMS 

.25Et-00.  .1E«-01.  .2E»01, 

.3E*-01,  . 

9Ef0i 

, .3Ei’01,  , 

p6E^01, 

.7E*-01» 

. 

8E«-01.  0.0 

, 0 .0 

, 0.0 

, 0.0 

, 0.0 

, 0.0, 

0.0. 

10.0.  0.0, 

0.0, 

0.0, 

KV» 

= 

.155E<-02,  0.0. 

0.0, 

0.0, 

0.0, 

0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.  0, 

0.0. 

0.0» 

0.0, 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

SaE 

= 

0.0, 

SAI 

= 

0.  0. 

Si;CTH 

0.0, 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

ik.0. 

0.  0, 

0.0. 

0.0, 

0.0, 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

SFCTW 

0.0. 

0.0.  0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0  , 

0.0P, 

0.0. 

0.0, 

0.  0, 

0.0,  0.0. 

0.06 

0.0, 

0.0, 

SVALS  = 

.1  E*-01  , -5  E+01 

, .IE«-02, 

.25E4-02,  . 

5E4-02, 

• .lE4'0i,  . 

• 2E‘*’03, 

.aE*'03, 

• < 

6E4-03.  0.0 

, 0.# 

, 0.0 

, 0.0 

, 0.0 

, 0.0 

, 

ic.2f 

0.0.  0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

TCASE 

.ttb2E«-00,  .98E+00. 

TL 

= 

.1  67  £<•  03  , 

TOLY 

= 

0.  0, 

0.0,  0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 
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0.id,  0..0, 

.0.0,  0.0,  0.0, 

0.0% 

0.0,  0.0, 

TPSI 

0.0,  0.0,  0.0, 

0.0% 

0.0,  0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0,  0.0t 

0,0.  0.0,  0.0, 

0. 0» 

0.0,  0.0,  0.0, 

0.0,  0.0,  0.0, 

0..0« 

0.0,  0.0,  0.0, 

0.0, 

0>0, 

0.0, 

0.0, 

0.0, 

0.0,  0.0, 

0.0,  0.0,  0.0, 

0.0» 

0.0,  0.0,  0.0, 

0.£*  0.0,  0.0, 

0.  0»> 

0.0,  0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0,  0.0, 

0.11!,  0.0,  0.0, 

0.0» 

TOINO 

.9E<-03, 

TRAKLN  = 

.167E*03.  0.0, 

0 .0  , 

0.0,  0.0,  0.0, 

0.0<, 

0.0, 

0.0, 

0.0, 

0.  £« 

0.0,  0..0, 

0.£,  0.0,  0.0, 

0 .!0  t 

0.0,  0.0,  0.0, 

TRAKWD  = 

.28E*-02,  0.0, 

0.0,  ^.0,  0.0,  £.0, 

0.0,  1 

0..0,  0 

.0, 

0.0,  0 

.0% 

0.0,  0.0, 

0.0,  0.0,  0.0 

, 0'.0, 

0.0,  0.0,  0.0 

, 

TRANS 

.3A97E*'01,  .98E+00* 

.i256Et-01,  .98E«-00, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0,  la  . 0 , 

0.0,  0.0,  0.0, 

0 .0<» 

0.0,  0.0r  0.0, 

0.0,  0.0,  0.0, 

0»i0.# 

0.0,  0.0,  0.0, 

0.0, 

0.0, 

0.0, 

i6.0  , 

0.0% 

0.0,  0.0, 

0.0,  0.0,  0.0, 
0.0,  0.0, 

0.0# 

0.0,  0.0,  0.0, 

VAA 

0.0, 

VDA  = 

0.0, 

VFS 

0.0, 

VOOB 

.1 E+03,  .1E>03 

, . I2E ^02,  .6E%01,  . 

4E*01 

, • AE  **0  1 , 

.4E«-01 

, 1. 

0.0.  0. 

0,  0.0,  0.0,  0 

.0 , 0. 

0,  0.0,  0.0, 

0.0,  0.0,  0.0, 

0.0* 

0.0,  0.0,  0.0, 

0'.0, 

0.0, 

VuQBS  = 

.8E-01,  .39E*00,  .27E+00,  .193E*01 

, .386E«-01, 

.773EI-01, 

.15A5E+02,  .309IE4-02»  •4636E*02t  0.0f  0.04 


id  • 0 f 0 4 0 9' 

0.0, 

0.0# 

0.0, 

0.0# 

0.0, 

0.0, 

0.0, 

0.0, 

0.0,  0.0, 

^.0, 

VKIDE 

.3525E*0^9 

.34E*02# 

.21I3E%02 

• .UlE-t>02, 

.11E^02, 

.1075E«-g2 

.105E«-02,  .1025E»02#  %iE»02 

, 0.0 

, 0.0, 

0.0,  0.0, 

0.0, 

0 .0  ^ 

0.0# 

0.0, 

0.0,' 

0%0, 

0.0, 

0.0, 

0.0,  0 . 

0.0,  0.0, 

0.  0,  0.0, 

0.0, 

0.0, 

0.0# 

0.0, 

0.0,  0.0, 

0.0, 

0.0# 

0.0% 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0,  0.£# 

0.0,  0.0, 

0.0,  0.0, 

0.0, 

0.0%. 

0.0, 

0.0, 

0.0, 

0.0,  0.0, 

0.0, 

0.00 

0.0, 

0.0, 

0.0, 

yss 

0.0, 

VSSAXP  = 

0.0, 

wc 

0.0, 

WDAXP  = 

0.0, 

WLPTH 

0.0,  0.0, 

0.  0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0,  0.0, 

0.0.  0.0, 

0.0,  0.0, 

0.0, 

0 .0# 

0 .0  , 

0.0, 

WD  TH 

.1A3E+03, 

WCHT  = 

.1  09E«-06, 

0.0, 

0.0# 

0.0, 

0.0, 

0.0, 

0..0, 

0.0, 

■0.0, 

0.0,  0.0, 

0.0,  0.0, 

0.0,  0.0, 

0.0, 

0.^  , 

0.0, 

0.0, 

0.0, 

WI 

. 87E*-02, 

wrat 

0.0,  0.0, 

0.0, 

0.0# 

0.0, 

0.0, 

0.4  , 

0.0, 

0.0, 

0.0, 

0.0%  0.0, 

0. 0,  0.0, 

0.0,  0.0, 

0.0, 

0.0» 

0.0, 

0.0, 

0KFORD  = 

0.0, 

WT 

. 115E<-03, 

0.0, 

0.0# 

0.0, 

0.0, 

0.0, 

0..0  , 

0.0, 

0.0, 

0.0,  0.0% 

0.0,  0.0, 

0.0,  0.0, 

0.0. 

0.03 

0.0, 

0.0# 

0.0, 

WTE 

.8  7E%0  2,  0 

.0, 

0.0  , e 

>#0% 

0.0, 

0.0,  0 

.0,  0 

m 0-, 

0.0, 

0.0,  0.03 

0.0,  0.0, 

0.0,  0.0, 

0.0 

, 01.0# 

0.0 

, 0.0 

, 0.0, 

WWAXP  = 0.0, 
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NTU 

ITUT 

VMAX 

UP 

LEVEL 

DOWN 

VS  EL 

UP 

LEVEL 

DOWN  < 

GRADE 

AR  EA 

1 

1 

27.07 

27.07 

27.0J 

2<7.07 

27.07 

27.07 

27,07 

27.07 

1.00 

0.0.200 

i 

1 

21  .2  0 

18.81 

21  .15 

84.35 

21.20 

18.81 

21.15 

24.35 

1 .00 

0.0  000 

3 

1 

15.11 

13.63 

15  .1.6 

26 .86 

15.11 

13.63 

15.16 

16.86 

1.00 

0.0  800 

4 

1 

8 .09 

7.68 

8.08 

8.55 

8.09 

7.68 

8.08 

8.55 

1.00 

0.0.000 

5 

1 

0.00 

0 .00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

1.00 

0.0000 

6 

1 

23.86 

19.29 

27.07 

27»07 

23.86 

19.29 

2 7.07 

27.07 

3.50 

0.0800 

7 

1 

19.56 

12  25  8 

27.07 

27,07 

19.56 

12.58 

27.07 

27.07 

7.50 

0. 0000 

3 

1 

15.54 

8.39 

2 7.07 

27.07 

15.54 

8.39 

27.07 

27.07 

15.00 

0.0200 

9 

1 

6.10 

2.39 

2 7.07 

27  .05 

6.10 

2.39 

27.07 

27.05 

50.00 

0.0400 

10 

1 

2 .17 

.77 

27.07 

19.17 

2.17 

.77 

27.07 

19.17 

65  .00 

0.0000 

11 

1 

16  .73 

15  .10 

16.78 

18.71 

16.73 

15.10 

16.78 

18.71 

1.00 

0.0000 

12 

1 

9.20 

8.63 

9.22 

9.82 

9.20 

8.63 

9.22 

9.82 

1.00 

0.0  800 

13 

1 

7.01 

6.73 

7 .01 

7.33 

7.01 

6.73 

7.01 

7.33 

1.00 

0^0800 

14 

1 

5.48 

5.28 

5 .49 

5.71 

5.48 

5.;28 

5.49 

5.71 

1.00 

0.0800 

15 

1 

3 .92 

3.74 

3.92 

4.11 

3.92 

3.74 

3.92 

4.11 

1 .00 

0.0000 

16 

i 

16.31 

11  .53 

16  .78 

86 . 5i4 

16.31 

11.53 

16.78 

26.54 

3.50 

0.0  200 

17 

1 

15.14 

9.83 

16.78 

27.12 

15.14 

9.83 

16.78 

27.  12 

7.50 

0.0  800 

18 

1 

12  .27 

6.76 

16  .76 

2f.l2 

12.27 

6.76 

16.78 

*t7.i2 

15.00 

0.0000 

19 

1 

4 .66 

1.82 

16.78 

27.11 

4.66 

1 .82 

16.78 

27.11 

50.00 

0.0000 

20 

1 

2.47 

.91 

16.78 

17.26 

2.47 

.91 

16.78 

17.  26 

65.00 

0.0800 

21 

1 

27  .07 

27.07 

27  .07 

27.07 

27.07 

27.07 

2 7^07 

27.07 

1 .00 

0.0800 

22 

1 

21  .13 

21.13 

2 1 a 3 

21.13 

21.13 

21.13 

21.13 

21. 13 

1.00 

0..0800 

23 

1 

11  .00 

11.00 

11  .00 

11.00 

11.00 

11.00 

11.00 

11.00 

1 .00 

0.-0000 

24 

1 

10.50 

10.50 

10.50 

10.50 

10.5  0 

10.50 

10.50 

10.58 

1.00 

0.0800 

25 

1 

10  .00 

10.00 

10.00 

10.00 

10.00 

10.00 

10.00 

10.00 

1.00 

0.0800 

26 

1 

14  .54 

13.12 

14.60 

16.23 

9.26 

9.26 

9.26 

9.26 

1 .00 

0.0000 

27 

1 

14  .3  0 

12.90 

14.36 

15^97 

9.26 

9,26 

9.26 

9. 26 

1.00 

0.0200 

28 

1 

9 .98 

9.84 

9.97 

10.14 

0.00 

0,00 

0.00 

0.00 

1.00 

0.0  200 

29 

1 

9 .26 

9.26 

9.26 

9.26 

9.26 

9.26 

.9.26 

9.26 

1.00 

0.0800 

30 

1 

5.37 

5.17 

5 .37 

5 .59 

5.37 

5.17 

5.37 

5.59 

1.00 

0.0800 

31 

1 

14  .54 

13.12 

14.60 

16.23 

8.58 

8.58 

8.58 

6.58 

1 .00 

0.0000 

32 

1 

10.74 

10.11 

10.36 

11.92 

8.58 

8.56 

8.58 

6.58 

1.00 

0.0800 

33 

1 

9 .08 

8.50 

9.06 

9.76 

0.00 

0.00 

0.00 

0.00 

1.00 

0.0800 

34 

1 

14  .3  0 

12.90 

14.36 

15.97 

9.<:4 

9.04 

9.24 

9.24 

1 .00 

0.0000 

35 

1 

10.98 

10.14 

10.84 

12.13 

9.24 

9.24 

9.24 

9.24 

1.00 

0.0800 

36 

1 

27.07 

27.07 

27,07 

27.07 

2 7,07 

27.07 

27.07 

27.07 

1.00 

0.0800 

37 

1 

27.07 

27.07 

27  .07 

27,07 

27.0? 

27.07 

27.07 

27.07 

1.00 

0.0800 

38 

1 

10.45 

10.28 

10.44 

10.63 

10.45 

10.28 

10.44 

10.63 

1.00 

0.0800 

39 

1 

8 .34 

8.23 

8.34 

8.46 

8.34 

8.23 

8.34 

8.46 

1.00 

0.0  000 

40 

1 

8 .09 

7.99 

8 .09 

8.20 

8.09 

7,99 

8.09 

8.20 

1.00 

0.0  000 

41 

1 

8.54 

8.42 

8.54 

8,66 

8.54 

8.42 

8.54 

6.66 

1.00 

0.0  000 

42 

1 

5 .76 

5-72 

5.75 

5.81 

5.76 

5.72 

5.75 

5.81 

1.00 

0.0000 

43 

1 

3 .61 

3.61 

3.61 

3.61 

3.61 

3.6i 

3.61 

3.61 

1.00 

0.0800 

44 

1 

27.07 

27.07 

27.07 

27.07 

27.07 

27.07 

2 7.07 

27.07 

1.00 

0.0800 

45 

1 

23  .48 

23.48 

23.48 

20.4  6 

23.48 

23.46 

23.48 

23.48 

1 .00 

0.0800 

46 

1 

10.90 

10.90 

10.90 

10.90 

10.90 

10.90 

10.90 

10.90 

1 .00 

0.0800 

47 

1 

21  .20 

18.81 

21 . 1 5 

24.35 

21.20 

18.81 

21.13 

24.35 

1 .00 

0.0  000 

48 

1 

20.97 

18  .81 

21.15 

23.48 

20.97 

18  .81 

21.15 

23.48 

1.00 

0.0800 

49 

1 

10.90 

10.90 

10.90 

10.90 

10.90 

10.90 

10.90 

10.90 

1.00 

0. 0 800 

50 

1 

6 .04 

6 .04 

6.04 

6.04 

6.04 

6.04 

6.04 

6.04 

1 .00 

0.0  000 
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sample  output  of  PkOGRAM  NRMM  - VEHICLE:  M60A1*  TERRAIN:  CKKRD 


$C ONTRL 
DETAIL  = 2, 

KSCEN  = 1, 

KVEH  = 1, 

Kill  = 0, 

KII2  = U» 

KII3  = 0, 

KIIA  = 0, 

KI  15  = 0f 

KII6  = 0, 

KI 17  = 0, 

Klie  = 0, 

KII9  = 0, 

Kllie  = 0, 

KIIll  = 0t 

KII12  = 0, 

KII13  = 0, 

KII14  = 0* 

KII15  = 0, 

KIIU  = 0, 

KI  117  = 0, 

KMAP  = 0, 

KTPP  = 0, 

K!  VI  = 0* 

KIV2  = 0, 

KIV3  = 0, 

KIV4  = 0, 

KIV5  = 0* 

KIV6  = 0. 

KI V7  = 0, 

K1V8  = 0, 

KI  V9  = 0, 

KIV10  = 0, 

KIVU  = 0, 

KiV12  = 0, 

KIV13  = 0, 

KIV14  = 0, 

KIV15  = 0, 

KIV16  = 0, 

KIV17  = 0, 

KIV18  = 0, 

KI  V19  = 0, 

KIV20  = 0, 

KIV21  = 0, 

NTUX  = 1, 

SEARCH  = 0, 

$ENO 
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TERRAIN:  CKKRD 


$SCENAR 

COHES 

= 

.5E-01, 

DCLMAX 

= 

.5  E+00f 

GAMMA 

= 

.2E*-00, 

lOVER 

= 

9, 

ISEASN 

= 

3, 

I SURF 

= 

1* 

iSNOW 

0» 

LAC 

= 

It 

MAP 

- 

lit 

MAPG 

Si 

It 

MONTH 

= 

1 t 

NOPP 

= 

f 

NSLIP 

= 

0> 

NTRAV 

3. 

NTUX 

= 

It 

PHI 

= 

,21E*-02 

REACT 

.5E*-00« 

RDFOG 

.lE*-0At 

SFTYPC 

.9E<-02  , 

VBRAKE 

.5E«-01  t 

VISMNV 

= 

.2E‘-01  t 

VLIH 

.55F«-02, 

ZSNOW 

$EN0 

.3Et-01  , 
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SAMPLE  OUTPUT  OF  PROGRAM  NRMN  - VEHICLE!  M6iaAl , TERRAIN!  CKKRD 


IVEHICLE 

AGO  = .12E«-01, 


A SHOE 

.i94E<-03, 

0.0, 

I^.K* 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0,  0 

.0, 

0.0,  0.0, 

0.0, 

0.0* 

0.0, 

0.0r 

0.0, 

AVGC 

0.  0. 

AXLSP 

0.0.  0.0, 

0.0, 

0.0  4 

0.0, 

0.0, 

0.0, 

0»0, 

0*0, 

0 .0  , 

0.0, 

0.0, 

0.0,  0 

.0, 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

CO 

= 

.12E«-01, 

CGH 

= 

.5425E*02, 

CGLAT 

= 

0.0, 

GGR 

.11956+03, 

CIO 

.1791E+04, 

CL 

= 

. 15E  + 02, 

CLRMIN 

= 

id  • iif 

0.0, 

0.-0, 

0.0, 

0.0, 

0.0, 

A*  0 $ 

0.0, 

0.0, 

0.0, 

0.0, 

0.0,  0 

.0, 

ld«0f  0«0« 

0.0, 

0.0« 

0.0, 

0.0, 

CONVl  = .1  875E-^04»  0.0*  .ISSE^O^*  .1E»00»  .1825E>0A»  .2E*^00« 

.1815Et04,  .3E*00,  .18iE^0A,  .4E«-00»  .1895E*'0A* 

.5E4'00«  .197E«-0^*  «6E4-00,  .203E4-04,  .7E«-00«  .2i3E4-0A«  .8E-»00t 
.221E*04*  .85E*00*  .25E4-0A,  •9E»00* 

•28E*-04,  .1E4-01«  0.0«  0.0*  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 

0.0,  0.0,  0.ld,  0.0,  0.0,  0.0,  0.0,  0.0, 

0.0,  0.0,  0.0,  0.04  0.0',  0.0,  0.0,  0.0,  0.0, 

C0NV2  = .366E«-01,  0.0,  .3125E«-01,  .lEt00,  .265E4'01,  .2E4'00,  .2228E«-01, 
.3E*-k/0,  .I95E4-01,  .4E»00,  •167E«-01, 

.5E*-00,  .142E»01,  .6E*00,  .122E4-01,  •7E4-00,  .105E4-01,  .8E*00, 
.98E4-00,  .85E«-00,  .97E»00,  .9E«-00, 

.97E*-00,  .1E*-01,  0,2,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 

0.0,  V.0,  0.0,  0.0,  0.0,  '0.0,  0.0,  0.0, 


0.0, 

0.0, 

0.0,  0.0* 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

DFLCT 

0.8, 

0.0, 

0.0,  0.0, 

0.0,  0.0, 

0.0  , 

040, 

0.0, 

0.0, 

0.4, 

0. 

0, 

0.0,  0.<f‘, 

0.  0. 

0 .0, 

0.0,  0.0, 

0.0,  0.0, 

0.0, 

0.  0, 

0 .0, 

0.0,  0.0* 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

4.0, 

0.4, 

0. 

0, 

0.0,  0.0, 

0.0, 

0.0* 

0.0,  .0.0* 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0,  0.0* 

0.0,  0.0, 

0.0, 

0..0> 

0.0, 

0.0, 

0.0, 

0. 

8, 

0.0,  0.0, 

0.0, 

0.0, 

0.0,  0.0, 

DIAW 

0.0, 

0.0, 

0.0,  0.0# 

0 .0 , 0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0. 

8, 

0.0,  0.0, 

0.  0. 

0.0, 

0.0,  0.00 

0.0,  0.0, 

DRAFT  = 

0.0, 

ENGINE  = 

• 1 2E  +44 , 

.16 1 E+04  , « 

i3E+04,  . 

1645E+04, 

.14E+04,  • 

167E  + 04, 

.156+04, 

.1682E+04,  .16E+«4 

, .168E+04,  .17E+04 

.1  675E  +04 

, .18E+04, 

.1655E+04 

, .19E+04, 

.163E+04, 

.2E+04, 

• 1 6 E + 04  , 

.216+04 

, .156E+:£4, 

.226+04, 

•151 5 E+04 

, 

.236  + 04  , 

.147E  +04  , • 

24E+04,  . 

142E+04,  0 

.0,  0 

• 0,  0 

.0,  0 

.0, 

0 

0.0,  0. 

4 , 0. 

0,  0. 

0,  0.0,  0*0 

i,  0.0,  0. 

0. 

0.0, 

0.0, 

0.0,  0.0, 

0.0,  0.0, 

4.0, 

0«0, 

0.0, 

0.0, 

0.0, 

0. 

it 

0.0.  0 . It;, 

• it 

0 .0, 

0.0,  0.0, 

0.0,  0.0, 

0 .0  , 

0.0, 

0.0, 

0.0,  0.0, 

0.0,  0.0, 

0.0, 

0.0, 

0.0* 

0.0, 

0.0, 

0. 

it 

0.0,  0.0, 

0.  0, 

0.0, 

0.0,  0.0, 

0.0,  0.0, 

0.0, 

0.  e, 

0 .0, 

0.0,  0.£, 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0. 

it 

0.0,  0.0, 

4 . I£, 

0.0, 

0.0,  0.0, 

0.0, 

EYEHGT  = .55E>-02, 

FD  = .508E*01.  .98E+00, 
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TERRAINS  CKKRD 


FORDO  = 0.0, 

GROUSH  = .15E4-01,  0.0,  £.0,  0.0,  0.0,  0.0,  0.0,  0.01,  0.0,  0.0,  0.0, 

0.0,  0.0,  0.0,  0.0,  0.0,  ilimMjl  0*0,  0.0,  0.0, 


HPNET  = .6A3E*-03, 

HVALS  = 0.0,  .9E*-0i,  .lE«>0il«  .i2E*>02,  .15E»02,  .2E>4-02,  .AE4-02,  0.0, 
0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,'  0.0, 


0.0,  0.0, 

0.0, 

0.0*  .0.0,  0.0, 

0.0,  0.0, 

lAPG 

1, 

IB 

1,  0,  0, 

0,  0, 

0,  £.«  0,  0, 

0,  0,  0,  0,  0, 

0,  0 , 0 , 

0, 

4, 

ID 

0,  04  0, 

0,0. 

0,  0,  0,  0,  0, 

0,  0,  0,  0,  0, 

0,  0,  0, 

0, 

04 

IDIESL  = 

.1E4-01  , 

lENGIN  = 

13, 

ICON  ST  = 

0,  0,  0, 

0.  0, 

0,  0,  0,  0,  0, 

0,  0,  0,  0#  0, 

0 , 0 , 0 , 

0, 

2, 

ICONVl  = 

12  , 

ICONV2  = 

12, 

IP 

1,  0,  0, 

0,  0, 

0,  0,  Hi  0,  0, 

0,  0,  0,  04  0, 

0,  0,  0, 

0, 

a. 

IPOWER  = 

0, 

IT 

0,  0,  0, 

0,  0, 

0,  0,  0,  0,  0, 

0,  0,  0,  0,  0, 

0,  0,  0, 

0# 

04 

ITCASE  = 

1, 

I TRAN 

1, 

ITVAR 

0, 

LOCO IF  = 

0, 

LOCKUP  = 

0, 

MAXIPk  = 

9. 

MAXL  = 

1 , 

NAMBLY  = 

1, 

NBOGIE  = 

12,  0,  0, 

0,  0 

, 0,  0,  0,  0,  0 

, 0,  0,  0,  0,  0, 

0,  0,  0, 

0, 

0 

NCHAIN  = 

0,  0,  0, 

0,  0, 

0,  0,  0,  0,  0, 

0,  0,  0,  0,  0, 

0,  0,  0, 

0i 

8f 

NCYL 

.12E«-02, 

NENG  = 

.1  E«-01  , 

NFL  = 

1,  0,  0* 

0,  0, 

0,  0,  0,  0, 

0,  0,  0,  0,  0, 

0,  0,  0, 

0, 

0* 

NGR  = 

2, 

NhVALS  = 

7, 

NPAD  = 

1,  0,  hit 

0,  0, 

0,  0,  0,  0,  0, 

0,  0,  0,  0,  0, 

0,  0 , 0, 

0. 

2, 

NSVALS  = 

9, 

NVEH 

0 , 0 , 0 , 

0,  0, 

0 , 0*  0 , 0 , 0 , 

0,  0,  0,  0,  0, 

0 , 0 , 0 , 

0, 

NWHL 

0 , 0 , 0 , 

0,  0, 

0,  04  0,  0,  0, 

0*  0,  0,  0#  0, 

0,  0,  0, 

0, 

2, 

NWR 

0, 

P8F 

.218E^06, 

PBHT  = 

.45e  »-02, 

PFA 

.92E+02, 

POWER  = 

£.£,  0.0, 

0.0, 

0.0,  0.0,  0.0, 

0.2#  0.0,  0.0, 

0.0,  0.0, 

0. 

2* 

0.0,  0.0, 

0.0,  0.0, 

0.0, 

0.0#  0.0,  0.0, 

0.0, 

0.0,  0.0, 

0.0, 

0.0*  0.0,  0.0, 

0.0,  0.0,  0.0, 

0*0,  0.0, 

0. 

0.0,  0.0, 

0.0,  0.0, 

0.0, 

0.01,  0.0,  0.0, 

0.0, 

0.0,  0.0, 

0.0, 

0.0#  0.0,  0.0, 

0.0,  0.0,  0.0, 

0.0,  0.0, 

0. 

a. 

0.0,  0.0, 

0.  0,  0.0, 

0.0, 

0.0#  0.0,  0.0, 

0.0, 

0.0,  ki  .0  , 

0.0, 

0.0#  0.0,  0.0, 

0.0,  0.0,  0.0, 

0.0,  0.0, 

0. 

2, 

0.0,  0.IU, 

0.0,  0.0, 

0.0, 

0.0*  0.0,  0.0, 

0.0, 

0.0,  0.0, 

0.0. 

0.0#  0*0,  0.0, 

0.0,  0.0,  0.0, 

0.0,  0.0, 

0. 

0. 

0.0,  0.0, 

0.0,  0.0, 

0.0, 

0.0i  0.0,  0.0, 

0.0, 

0.0,  0.0, 

0.0, 

0.0,  0.0,  0.0, 

0*>0,  0*0,  0.0, 

0.0,  0.0, 

0. 

2, 
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SAMPLE  OUTPUT  OF  PROGRAM 

NRMM 

- VEMCLEi 

! Mfc0Al.,  TERRAIN 

i:  CKKRD 

0.0f 

0.iS. 

0.0. 

0.0. 

0.0. 

0*0, 

0,0* 

0.0, 

0.0, 

0.0. 

0.0. 

0.0. 

0.0» 

0.0* 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0* 

0.0  • 

0.0. 

0.0. 

0 .0  . 

0.0, 

0.0« 

0.0, 

0.0, 

0.0, 

0.0. 

0.0. 

0.0, 

0.«« 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0  , 

0.0* 

0. 0 f 

0.0. 

0.0. 

0.0. 

0.0. 

0*0, 

0.0# 

0.0, 

0.£, 

■0.0. 

0.0, 

0.-0« 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.2, 

0.0. 

0.0. 

0.0. 

0 .0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0. 

0.0. 

0.0« 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.8, 

0.0. 

0.0. 

0 . 0. 

0 .0. 

0.0. 

0«0k 

0.0. 

0.0, 

0.0, 

0.0. 

0 .0  . 

0.0, 

0.0M 

0.0, 

0.0, 

10*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0. 

0.0. 

0.0. 

0.0* 

0.0, 

0.0, 

0.0, 

0.0, 

0.  0. 

0.0. 

0.0, 

0.0» 

0.0, 

0.0, 

0.0, 

0.0, 

0.0* 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0. 

id.0. 

0.0, 

0.0« 

0.0, 

0.0, 

0.0, 

0.  0. 

0.0. 

0.0, 

0.0J 

0.0, 

0.0, 

0.0, 

0%  0, 

0.0, 

0.0, 

0.0, 

0 . 0<, 

0.0. 

0.0. 

0.0. 

0.0* 

0.0, 

i.Zk 

0.0, 

0.0, 

0.0, 

0.0. 

0.'0« 

0.0, 

0*0# 

0.0, 

0.0, 

0*2, 

0*  0 , 

0.0, 

0.0, 

0.0, 

0.8* 

0.0. 

0.0. 

0.0. 

0.0. 

0.0. 

0 . 

0.0, 

0.0, 

0.0, 

0.0. 

0.0. 

0.0. 

0*‘0* 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0* 

0.0. 

0.0. 

0.0. 

0.0. 

0.0, 

0..0« 

0.0, 

0.0* 

0.0, 

0.0. 

0.0* 

0.0, 

0^0^ 

0.0, 

0.0, 

0.0, 

0 *0>, 

0.0, 

0.0, 

0.0* 

0*8, 

0.0  . 

0.0. 

0.0. 

0.0, 

0.0, 

0*^, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0. 

0.0* 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

J.0. 

0.0, 

0.0. 

0 .0* 

0.0. 

w.J# 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0. 

0.0# 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0. 

0.0. 

0.  0. 

0.0. 

0.0. 

0.0k 

0.0. 

0.0, 

0*<0, 

0.0. 

0.0, 

0.0, 

0^0, 

0.0, 

0«0  , 

0.0, 

0.0, 

0.0, 

0.0* 

0.0* 

0.0. 

0 . v) . 

0.0. 

0.0, 

0.0, 

0.£» 

0.0, 

0.0, 

0.0, 

0.0. 

0 .0, 

0.0. 

OMAX 

= 

.16»2E4’04 

* 

ROI^M  = 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0>0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0. 

0 • i . 

0.  0. 

0.0, 

0.0, 

0.:0, 

0.0, 

0.0, 

REVM 

= 

.832E«-03. 

0.0, 

0..0, 

0.0, 

0.0, 

k).0. 

0.0, 

0.0, 

0.0, 

0.0* 

0.8, 

0.0. 

0.0. 

0.0. 

0.0, 

0.0, 

0*0# 

0.0, 

0.0, 

0.0, 

RTMW 

= 

0*0r 

0.0, 

0.0. 

0.0, 

0*0, 

0.0, 

0.^, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0. 

0 .!S 

0.0. 

0.0. 

0.0, 

0.<0» 

0.0, 

0.0, 

kMS 

= 

.25E*-00. 

. 1E«'01.  .2Ef01. 

.iE«-01,  . 

AE*’01- 

, .5E»01, 

.6E*-0l , 

.7e«-01, 

• 

8E  ‘•01 

. 0.0 

. 0.0,  0.0 

, 0.0 

, 0.0 

, 0 . 0, 

0.0. 

0.0, 

0.0. 

0.0, 

0.0, 

KW 

= 

.1  55E*-02. 

0.0, 

0.0* 

0.0, 

0.0, 

0.0, 

0 .0  , 

0.0, 

0.0, 

0.0, 

0.  8* 

0.0. 

0.^J. 

0.0. 

0.0, 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

SAE 

= 

0.0, 

SAI 

= 

0.0. 

secth 

0.0. 

0 .0, 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.8, 

0.0. 

0.  . 

0.0. 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

SEcrw 

0.0. 

0.0, 

0.0, 

0.0* 

0*0, 

0.0, 

0.0, 

0*0, 

U.Ki* 

0.0, 

lOmki  t 

0.8* 

0.0  • 

0..  . 

0.0. 

0 .0, 

0.0. 

0.0* 

0.0, 

0.0, 

SVALS 

.1E*-01,  . 

SE^-Ol 

, .1EA>02. 

.25E«-02,  . 

SE»02 

• .1E^03, 

.2E‘-0i, 

.461-03, 

• 

6E*03 

. 0.0 

. 0.0«  0.0 

, 0.0 

, 0.0 

• 0.0 

f 

0.  0, 

0.0. 

0.0, 

0.0k 

0.0, 

0.0, 

0.0, 

0*0, 

■0.0, 

0.0, 

TCASE  = 

.362E4-00. 

.98E*00  . 

TL 

.167  E+  03  . 

TPLV 

= 

0.0* 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0‘.0  , 

0.0, 

0.0, 

0.0, 

0.8, 
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0..0,  0.Jd, 

M * £ 9 J^.0f 

0.0, 

0.01  0.0,  0.0, 

TPSI 

0.0,  0.0, 

0.0, 

0»0«  0.0,  0.0, 

0.0, 

0»ICi  t 

0.0, 

0.0, 

0.0, 

0.2, 

0.0,  0.0, 

0.0,  0.0, 

0.0, 

0.0,  0.0* 

0.0, 

0.£,  0.0, 

0.0, 

0 .i  0%  0«.  0 , 0.0* 

2.2, 

0»0, 

0.0, 

0.0, 

0.0, 

0.  2, 

0.0,  0,0. 

0.0,  0.0, 

0.0* 

a.0,  0.0, 

0.0, 

0 . £•  0.0* 

0.0, 

0.^0#  0.0,  0.0, 

0.0i, 

0.0, 

0.0, 

0.0, 

0.0, 

0 . 0<, 

0.0,  0.0, 

0.0,  U .0* 

0.0, 

0 .0  i 

TOINO 

.9  E+0  3 , 

TRAKLN  = 

.167E+03  , 

0.0, 

0*^#  0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.  e. 

0.0,  0.0, 

0.0,  0.0, 

0.0, 

0.0%  0.0,  0.0, 

0.0, 

IRAK WO  = 

.28E+02, 

0.0, 

2.0,  0.0,  2.0, 

2.0, 

0.0,  1 

0.0,  0 

.0, 

0.0,  0 

1.0# 

0.0*  0.0, 

0.0,  0.0 

, 0.0 

, 0.J.,  0.0,  0.0,  0.0 

* 

TRANS 

.3497EI-01 

, .98E4-00#  .1256E«>01 

, .98E<-00, 

0.0, 

0.0, 

2.0, 

0.0, 

0.0,  0.0, 

0.0,  0.0* 

0.0, 

0.0«  0.0,  0.0, 

0.0, 

0.0*  0.0, 

0.0, 

0.2%  0.0,  0.0, 

0.0, 

0>.0 

0m  0 $ 

2.0, 

0.0, 

0.0, 

0.0,  0.0, 

0.0,  0.0, 
0.0,  0.0, 

0.0, 

0A0I  0.0,  0.0, 

0«0,‘ 

VAA  = 

0.0, 

VDA 

0.0, 

VFS 

0.0, 

VOOB 

.ie+k33,  . 

1E^03 

, .12E«-02,  .6E*>21,  .• 

AE>01 

, .4E«-01, 

.4E«-01 

, 2i.0, 

0.0,  0. 

0,  0.0,  0 

. 0 , 0 

.0,  A»0,  0.0,  0 

.0, 

0.  0,  0.0, 

0.0, 

0.0,  0.0,  0.0, 

0.0, 

0.0, 

0.0, 

VUOBS 

.15A5E«-02, 


0.0r 

2 .0, 

0.0, 

0#0# 

0.0* 

0.0, 

0.0, 

0.0,  0.0, 

0 « 09 

0 .0  , 0.0# 

0.0, 

VRIDE 

.3525E*02, 

.34E<-02# 

.2113E4‘02 

, •141E«02,  .11E«02, 

.1075E4-42 

.105E>02,  .1025E»-22,  ,1E«'02 

, 0.0 

, 0.0, 

0.  0, 

0.0, 

0.0, 

020# 

0.0, 

0.0, 

0.0, 

0.0,  0.0, 

0.0, 

0.0,  0.0# 

2.0,  0.2. 

0.2 , 

0.0, 

0.0, 

0.0  » 

0.0, 

0.0, 

0.0, 

2.  2, 

0 .0, 

0.0, 

0.0% 

0.0, 

0.0, 

0.0, 

0.0,  0.0, 

0.0, 

0.0,  0.  0# 

0.0,  0.0, 

0.0. 

2.0, 

0.0, 

0.0* 

0.0, 

0.0, 

0.  0 , 

0.2. 

2.0. 

0.0. 

0.0# 

0.0, 

0.0, 

0.0, 

VSS 

2.0, 

VSSAXP  = 

0.2. 

WC 

0.2, 

WDAXP  = 

2.0. 

WDPTH 

2.2, 

2 .2  , 

0.0, 

0.0# 

0.0, 

2.  0 r 

0.0, 

0.0,  0.0, 

0.0, 

0.0,  0.0# 

0.0.  0.0, 

2.0, 

2 .0, 

0.0, 

.0  20# 

0.0, 

0.0, 

WD  TH 

.1  A3E  + 03, 

WGHT 

.1  29E<-06, 

0.0, 

0 .0  * 

0.0, 

0.0, 

0.0, 

0..0,  0.0, 

0.0, 

2.2,  0.0, 

0.0.  0.0, 

0.0. 

0.0, 

0.0, 

0.^0# 

0.0, 

0.0, 

0.0, 

»I 

.a7E  + 02, 

WRAT  = 

2.0, 

0.0, 

0.2, 

0 «0-* 

0.0, 

0.0, 

0.0, 

0t.  0 * 2.  0 , 

2.0, 

0.0,  0.0, 

0.0,  0.0, 

0.2, 

0.0, 

0.0, 

0. 0» 

0.0, 

0.0, 

WRFORD  = 

0.0, 

wT 

.115E<h03, 

0.0, 

0.04 

0 90  0 

0.0, 

0.0, 

0.0,  0.0, 

0.0, 

0.0,  0.0, 

0.0,  0.0, 

0.2, 

0.0, 

0.2, 

0.0# 

0.0^ 

0.0, 

0.0, 

WTE 

.87E  + 02,  0 

.0, 

0.ld>,  0#0i, 

0.0, 

0.0V,  0.i0,  0.^0,  0 

.0,  0 

• 0 , 0.0, 

0.0.  2.0. 

2.0- 

, 0.0* 

020 

, 0 

0.0 

, 0.0 

, 0.0, 

WWAXP  = 0.0, 
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XBkCOF  = .8E*-e0, 
$FND 
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NTU 

I TUI 

VSEL 

UP 

DOWN  ^ 

CRAOE  DISTANCE 

1 

li 

24  .84 

22.64 

27.50 

3.00 

.1000 

2 

12 

19  ,12 

14.65 

27.50 

7,00 

• 1100 

3 

19.12 

14.65 

27.50 

7.00 

.1200 

A 

u 

7.30 

6.47 

8.37 

3.00 

.1300 

5 

li 

18  .45 

13  .88 

27-50 

3.00 

.1400 

6 

1^ 

11  .47 

7.2  5 

2 7.50 

15.00 

.1500 

7 

115 

15  .53 

13.88 

17.62 

3,00 

.1600 

8 

1 

18  .45 

13  .88 

27.50 

3.00 

.1  700 

9 

14 

11  .12 

91.54 

13.35 

3.00 

.1300 

10 

14 

12  ,71 

8.28 

27.34 

15,00 

.1900 

11 

14 

11.68 

7.42 

27.33 

15.00 

.2000 

12 

14 

17  .6  2 

17.62 

17.6>2 

3.00 

.>2100 

li 

14 

22  285 

19.63 

27.34 

3.00 

.2200 

14 

14 

3 .94 

3.49 

4.5  3 

3.00 

• 2300 
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iCONTRL 
DETAIL  = I , 

KSCEN  = 1, 

KVEH  = 1, 

Kin  = 0, 

Kin  = 0, 

KI  13  = 0f 

Kin  = 0, 

KII5  = 0, 

KII6  = 0, 

KII7  = 0, 

Kllb  = 0, 

K1I9  = 0, 

KII10  = (?, 

KIIll  = 0, 

K1I12  = 0, 

Kina  = 0« 

KIIIA  = 0( 

Kl 115  = 0, 

KII16  = 0t 

Kill?  = 0« 

KMAP  = 0» 

KTPP  = 0. 

KIVl  = 0> 

KIV2  = 0, 

KIV3  = 0* 

KIVA  = 0, 

KIV5  = 0f 

KIV6  = 0* 

KI  V7  = 0, 

KIV8  = 0, 

KIV9  = 0, 

KIV10  = 0, 

KIVU  = 0t 

KIV12  = 0, 

KIVIJ  = 0, 

KiVlA  = 01 

KIV15  = 0, 

KIV16  = 0» 

KIV17  = 0, 

KIV18  = 0, 

KIV19  = 0. 

KIV20  = 0, 

KIV21  = 0, 

NTUK  = 1, 

SEARCH  = 0* 

$£N0 


A 
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$SCENAR 

COHES 

= 

• 5E-01  , 

OCLMAX 

s 

.5E«-00« 

gamma 

s 

.2E»00, 

I OVER 

ss 

9, 

iseasn 

= 

3, 

I SURF 

If 

ISNOW 

=: 

0. 

LAC 

= 

If 

MAP 

= 

71  f 

MAPG 

= 

1 f 

MONTH 

= 

If 

NOPP 

0f 

NSLIP 

= 

0f 

NTRAV 

= 

3, 

NTUX 

If 

PHI 

= 

.21E»02 

REACT 

= 

• 5 E^00  , 

RDFOG 

.lE*-04, 

SFTYPC 

= 

.9E*-02f 

VBRAKE 

• 5E«-01, 

VI SMNV 

.2E«-01  • 

VLIM 

.55£*-02 

ZSNOW 

$ENO 

.3E«-01, 
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JVEHICLE 

AGO  = .12E*-01, 

ASHQE  = 0.0*  0.0,  0.0,  0.01  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.4* 

0.0,  0.L,  0.0,  0.0,  i&.0,  0.0^  0.0,  0.0, 

AVGC  = .12E«-03, 

AXLSP  = .85EI-02,  0.0,  0.0,  0.0«  0.0,  £.0*  £.0,  0.0«  0.0,  0.0,  0.0| 

0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 

CO  = .12E*01. 

CGH  = .103E<'02, 

CGLAT  = 0.0, 

CGR  = .42E«-02, 

CIO  = .1A15E*03, 

CL  = .91E*01, 


CLRMIN  = 

.114EI-02, 

.114E»02« 

£ • 0* 

£.0, 

£.0  , 

0.0, 

0.0, 

0.0, 

0.0, 

0.1* 

0.0*  0.0* 

0.  £, 

0.0, 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.  0, 

CONVl 

0.0, 

0.«», 

0.0,  0.0ii 

2.0* 

0.0. 

0.0, 

0*0, 

0.4, 

0.0, 

0.0, 

0.«, 

0 . <J,  0. 0, 

£.£, 

0.0, 

0.0,  0.0^ 

0.0, 

0.0, 

0.0, 

0.  £• 

0.0, 

0.0,  0.04 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.8, 

0.0,  £.0, 

0.  0* 

0.0, 

0.0,  0.0, 

0.0, 

0.0, 

0.0, 

0.  0, 

0.0, 

0.0,  0.0« 

0.0* 

0.0, 

0.0, 

0.0, 

CONV2 

0.0, 

0.0, 

0.0,  0.ii# 

0 .0  , 

0.0, 

k).0. 

0.0, 

0.0, 

0.0, 

0 . 0, 

0.1* 

0.0,  0.£, 

£.£, 

0.0, 

0.0,  0.104 

0.0, 

0.0, 

0.0, 

0.  e. 

0.0, 

0.0,  0.04 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.  0,  0.0, 

K>.  0* 

b .0  , 

0.0,  0.0« 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0,  0.0* 

0.0, 

0.0, 

0.0, 

0.0, 

OFLCT  = 

. 13iE«-01, 

.114E*01, 

0,0, 

£.0, 

0«0* 

0,.0, 

0.0, 

0.0, 

0.0, 

0.8* 

0.0*  £.0, 

0.  £, 

0.0, 

0.0,  0.0* 

0.0, 

0.0, 

0.0, 

0.0, 

.131E^01,  «114E^01, 

0.0, 

0.0, 

0.0* 

0.0, 

0*0, 

0.0, 

0.0* 

0.0,  0.0, 

0.0, 

0.0, 

0.0,  0.0, 

0.0, 

£.0, 

0.0, 

0.  0, 

0 .0, 

.1E<-01,  . 

16*01 

, 0.0 

• 0*0 

, 0.0 

, 0.0 

, 0.0 

, 0.0 

, 0i0 

0.0, 

0.0  , 

0.0,  1 

0.0,  0.0<»  < 

0 * 01, 

£.0, 

0.0, 

0.  0, 

0 .0, 

0.0, 

OIAG 

.308E«-02, 

.3e8E««24 

0.0, 

0.0, 

0*0, 

0»0, 

0.0, 

0.0, 

0 . 0 ,1 

0.  8, 

0.0,  0.0, 

0.0, 

0.0, 

0.0,  0.0* 

0.0, 

0.0, 

0.0, 

0.0, 

DRAFT  = 0.e. 

ENGINE  - .8E4'03,  .li5E«-03,  i22E'»04,  •1156*03,  •16E«r04,  .l.i5E4-03, 
.2E»04,  .115E«-03,  .24Eft44,  .112E403,  •28E4-04, 

.108E4-03,  .32E*04,  ,103E*03,  ^36E*£4«  •96E4-02.  •4E*04, 
.88E*-02,  .44E*-04,  «8E»82,  0.0,  0.0,  0.0,  0.0, 


8.8, 

0.0. 

0.0, 

8.8* 

0*0* 

0.0, 

0.0* 

0.0, 

0.0, 

0.0, 

0.0, 

0.8, 

0.0. 

0.0, 

0.  0, 

0.0, 

0.0, 

0'.8« 

i«0» 

0.0* 

0.0, 

0,  8, 

0.0, 

0.0, 

0.0* 

0.0  , 

0.0, 

0.0, 

04  0, 

0.0, 

0.0, 

0.0, 

0.8* 

£.0, 

0.0, 

8.0* 

0.0, 

0.0, 

8.8* 

0.0, 

0.0, 

0.0, 

8.8. 

0.0, 

0.0  * 

848* 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.1* 

0.0, 

0.0, 

8.8, 

0.0, 

0.0, 

8.8* 

0.0, 

0.0, 

0.e<, 

0.0, 

0.0, 

0.0, 

0,0* 

0.0, 

0.0* 

0«S* 

0.0, 

0.0, 

0.0, 

0.0, 

0.  8, 

0.0, 

EYEHGT  = .525E*-02, 

FU  = .ASbE^Sl,  .9E»00, 

FOROD  = 0.0, 
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sample  output  of  program  NRItK  • VEHICLES  MlSl,  TERRAINS  CKK 


GROUSH  = 0.0,  0«0«  0.0,  040»  0.0f  0G0r  0m0g  0*0t  0.0t  0*0^  0.0<f 

0.0«  0.0,  0.0«  0.0,  0.0,  0.€|  a.0»  0.0* 

HPNET  = .7392E+02, 

HVALS  > .lE-01*  «AE4>01«  ^8fl>01«  .12E4-02,  .16E«fl2>  .2E4-02*  •4E4'02.  0.0# 
0.0.  0.0.  0.0t  0.0.  0.0»  040#  0.0.  0.0. 

0.0#  0.0#  0.0#  0.ii  0.0«  0.0#  0.0#  0«0r  0.0. 

lAPG  =0. 


IB 

= 

1.  1# 

0t 

0#  0. 

0. 

0# 

0# 

0# 

0. 

0# 

0# 

0# 

it 

0# 

0t 

0# 

0# 

0# 

8t 

ID 

lOlESL 

lENGiN 

= 

0t  0. 

.1E«-01 
10  . 

0t 

t 

0.  0# 

0^. 

0# 

0. 

0t 

0# 

0# 

0* 

01 

0# 

0# 

0# 

0# 

0. 

0# 

ICONST 

ICONVl 

ICCNV2 

= 

1 . 1 # 
0. 

0* 

0# 

0.  0# 

0 # 

8-* 

0# 

0# 

0# 

0. 

0# 

it 

0« 

0# 

0t° 

0# 

0. 

0t 

IP 

IPOWER 

i * It 
17  . 

0* 

0.  0t 

0. 

0# 

0# 

0f 

0# 

0« 

0. 

it 

0^ 

0. 

0. 

0t 

0t 

0t 

It 

IT 

= 

0.  0t 

0. 

0,  0# 

0t 

i* 

0# 

0# 

0# 

0# 

0# 

it 

0* 

0# 

0« 

0# 

0# 

0# 

I# 

ITCASE 
ITRAN 
ITVAR 
LOCO  IF 
LOCKUP 
MAXI  PR 
MAXL 
NAMBLY 


= 0. 
= 0. 
= 0. 
= 0. 
= 0. 
= 9, 
= 1. 
= 2. 


NBOGIE 

= 

0*  0# 

0t 

0* 

0t 

0# 

0# 

0# 

0# 

0# 

0# 

0# 

i# 

i« 

0Y 

it 

it 

it 

0t 

8# 

NCHAIN 

NCYL 

NENG 

= 

0t  0t 

.4£*01 

.1E4-01 

0# 

« 

t 

0t 

0. 

0t 

01 

0« 

0# 

0# 

0<# 

0t 

0# 

0t 

it 

it 

0t 

0t 

8# 

NFL 

NGR 

NHVALS 

3 

0.  0t 

4, 

7, 

0« 

0t 

0t 

0# 

i# 

0t 

it 

0# 

0% 

it 

0# 

it 

0t 

it 

it 

0t 

i. 

it 

NPAO 

NSVALS 

— 

0.  0, 
16  . 

0, 

0. 

0* 

0# 

0# 

0# 

0. 

0# 

0# 

0. 

it 

0t 

it 

it 

it 

0t 

it 

1# 

NVEH 

= 

1.  It 

0. 

0t 

0. 

0t 

it 

it 

0# 

0# 

it 

it 

0. 

it 

it 

it 

0# 

0t 

it 

NWHL 

= 

2.  2. 

0t 

0. 

0. 

0. 

0« 

09 

0t 

0# 

it 

it 

it 

0# 

ir 

it 

0t 

i# 

it 

if 

NWR  =0, 

P8F  = ,32E«'0A, 

PBHT  = -2E^02, 

PFA  = .225E«-02, 

POWER  = .0.£.  .2195E*-0A#  .A0E«>0i#  .2165E*-29.  ,75EA01#  .205E4-04,  .lE*-02. 

.1315E4-04.  •10iE4-02,  a1205E->-04,  .I2E*02# 

.;118E<-04,  .lS5E*-e2|  .1085E<-04«  •19dE*02,  .87E^03#  .199E«^02. 
.64E'^03.  .25E4>02#  .eSE^-iJ#  40E4-02,  .615E4’03. 

^33E»02.  .56E<>&3,  4331E»02#  •42E»03.  .4E«02,  .385E^03, 

.^5E^02.  .35SE4-03#  '•5E«02#  •34E«-03#  •56E<«-02« 


.31E*-03<»  0. 

0. 

£• 

0t  a 

1.0# 

0.it  1 

B.ii#  0a.it  i.0# 

i.it  i.it  i.ii 

0. 

0. 

0.0. 

0 

.0 

» 0.0. 

► 

0.0 

t 

i.8.t 

0.0 

• 0.0: 

t i>.  i t 

0. 

0. 

0.i» 

0 

. 0 1 

>• 

0^# 

i.it 

0.i#  0M0  t i.0 . 

i.it  i.it  i.8« 

0. 

0. 

0.0. 

£t 

i.if 

0 

.0* 

0 

i.it 

0.0# 

i.it 

i. 

£t 

0 .it 

0 

.0t 

0 

0.0» 

i.it 

0.i#  0.0‘t  i.it 

i.it  0.0t  0.i« 

0. 

0, 

0.0. 

0. 

0t 

0.0# 

0 

.it 

0 

• £» 

0.0t 

i.it 

0.0# 
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SAMPLE  OUTPUT  OF  PROGRAM 

NRDM 

^vehicle: 

HI  51 

, terrain: 

CKK 

0.  fe. 

0.0. 

0.0, 

0 .0  * 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.g. 

IL*0, 

0.L. 

0.0, 

0.0. 

0.0, 

0.0# 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

'«>.  t4 

0.0, 

0.0, 

2m  0 , 

0.0, 

0.0, 

0.0, 

0.0,. 

0.  g. 

0.0. 

0..0. 

0.0, 

0.0. 

0.0, 

0.0:# 

0.0. 

0.0, 

0.0, 

0.  0, 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

10.0 , 

0.0, 

0.0, 

0.fl, 

0.0, 

0.0. 

0.0, 

0.0. 

0.0, 

0.0* 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

0.0« 

0.0, 

0.0, 

0.0, 

0A0, 

0.0, 

0.0, 

0.0, 

0.8, 

^.0, 

0.0. 

0.0, 

0.0. 

0.0, 

0.00 

0.0, 

0.0, 

0.  0, 

0.0. 

0.0, 

0.0, 

0.01 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.8, 

0.0. 

0.0. 

0.0. 

0 .0, 

0.0, 

0.0# 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

. C# 

£.0, 

0.0, 

0.0, 

0.0  , 

0.0, 

0.0, 

0.0, 

0.8, 

0.0. 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

e.i» 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0  . 

0.0, 

0.0, 

0.0. 

0.0, 

0.0» 

0.0, 

0.0, 

0.0, 

0.  0. 

0.0, 

0.0, 

0.00 

0.0, 

0.0, 

0.0, 

040, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

0.0  . 

0.0, 

0.£| 

0.0, 

0.0, 

0.0^ 

0.  0, 

0.0, 

0.0  . 

0.00 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.8, 

0.0, 

0 . L . 

0.0. 

0.0, 

0.0. 

0.0* 

0.0  • 

0.0, 

0.0, 

lb.  0, 

0.0, 

0.0, 

0.C0 

0.0, 

0.0, 

0.  0 , 

0.0, 

0.0, 

0.0, 

0.0, 

0.8, 

0.0, 

0.0. 

0.0, 

0.0, 

0.0, 

0.0% 

0.JI3, 

0.0, 

0.0, 

0.  0. 

0.0, 

0.0, 

0.00 

0.0, 

0.0, 

0.0, 

0'.0, 

0.0, 

0.0, 

.0, 

0.8, 

0.0. 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

0.0^ 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.8, 

0.0, 

0.0. 

0 . L . 

0.0, 

0.0. 

0.Jb.* 

0.0, 

0.0, 

2m  0 , 

0.0. 

0.0. 

0.0, 

0 .0  , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.8, 

0.0. 

0.0, 

0.  0, 

0.0, 

0.0. 

0.0, 

0.0, 

0.0, 

0 .0  , 

0.0, 

0 .0. 

0.0, 

0.0* 

0.0<, 

0.0, 

0.0, 

0.0  , 

0.0, 

0.0, 

0.0, 

0.8, 

0.  0, 

0.0. 

2.0, 

0.0, 

0.0, 

■0  .0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

L.0, 

0.0« 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.8, 

0.0* 

OMAX  = .115E*-03. 


ftOlAM 

0.0, 

= •I6E^^02,  .i6E^e2,  0,0,  0.0,  8.0, 
0.0,  C.0,  0.0,  0.0,  8,0,  0.0,  0.0, 
0.0. 

0.0% 

0.0 , 0.0, 

0.0, 

0.0, 

0.0 

RfcVM 

0.0, 

= .7  2E*ki3,  .72E«-Ka^,  8,0,  0.0,  0..0v 
0«0,  0.0,  0.0,  0.0,  020,  0.0,  0-.8, 

lb  . 0 , 

= .ASE»01,  .A5E«-01,  8,0,  0.0,  0.0, 

0.1b,  0.0,  0.0,  0.0,  8,0,  0.0,  8.0, 

0. 0, 

0.0« 

0,0,  0.0, 

0.0, 

01.0, 

0.0 

filMR 

0 • 0 ff 

0 .01, 

0.0,  0.0, 

0.0, 

0.0, 

0.0 

kMS 

= .25E«-00,  .1E*01,  .JE4-0a,  .3E«-;01« 

.4E«01«  .5E*01 

, .6E^01, 

.7E»01.  .SE^ei*  0.0,  0.0,  0.0,  0.0, 


0.0, 

0 

.0, 

0.0, 

0 . 0., ' 

0. 

.0, 

RW 

= 0.  0, 

0 

.0, 

0.0, 

0.04 

0. 

,0, 

0. 

0.e>, 

0.0, 

0.0, 

0.0, 

0.0,. 

0. 

8, 

0.0,  0 

.0.  0.0, 

0 

• ^ 9 

0.0  , 

0.04 

0. 

•0  , 

0. 

.0, 

SAE 

0.0, 

SAI 

= 0.£, 

SECTH 

= .74E+*1, 

. 74E4-01,  9. 

0. 

, 0 

.0. 

r 0 

.0»  0. 

>4,  0. 

>0,  0< 

> 0,  0.  0 , 0 

.0, 

0.0, 

2- 1 

.0.0,  0. 

0, 

0. 

0,  0. 

0,  £40 

1, 

0. 

0, 

0. 

0, 

0.e, 

SECIW 

= .715£*01, 

.715E/^8  U 

0. 

.0, 

0. 

.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0. 

8, 

0.0,  0 

• 09  0 • £ f 

0 

.0  , 

0.0, 

0.04 

0. 

• 0, 

0. 

.0, 

0.0, 
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0.0, 

SVALS  = .lE+01,  .2E*-01,  .•3e*01v,  .4E*01.  .5E*ei,  •6E*01,  .7E+01, 
.8E«-01.  •9£f01,  .lE»0a«  .^llE«02t  .12E4>02»  •i3E>02v 

.15E*02,  .2E«02,  ^«E«-«2t  0.0f  0»0#  0..0*»  0«0«  0.0.  0.0r  0.0« 

iiimldf  0.0, 

TCASE  = .l£fr01,  .1E*01, 

TL  = .8  5E<-02, 

TPLY  = .bEi-El.  .6E«0I,  0..4«  0.0,  04>0,  0'.0«  0.0«  0.0,  0.0«  0.0,  0^0, 

0.0»  0^0,  0.0,  0.0,  0.0.,  0.0«  0.0,  0.0, 

0.  0, 


TPSI 

0*0, 

= .15E*-02,  .15E«e2)»  4,0,  0.0,  0.0., 
0*0,  0.0,  0.0.  0*0,  020,  0.0,  0.0, 

0.0« 

0.0, 

0.0, 

0.0, 

0«0, 

0.0 

0.0, 

0.0,  .15E4-02,  .15&402,  0.0,  020, 

0*0,  £.0,  0.0,  0.  £i,  £20,  0'.i0.  0.0, 

0.02 

0*0, 

0.0, 

0.0, 

0.0, 

0.0 

0.0* 

0*0,  0*0,  .25E^02«,  .25E«02,  0.0, 
0.0,  0*0,  0.0,  0.0,  0.20,  0.0,  040. 

0.02 

0.0, 

0.0, 

0.0, 

0.0, 

0.0 

0.  0,  0 ,0  ,0.0, 

TQINO  = 0.0, 

TRAKLN  = 0.0.  0.0,  0.0,  0.0^^  0.0,  0.0,  0^,  0«0,  0.0,  .0.0,  0.0,  0.  g;^ 

0.0,  0.0,  0.0,  0.0,  0.0,  0.04  0.0,  0.0, 

TRAKHID  = 0.0,  0.0,  0.0,  0.0i#  0.0,  0.0,  01.0,  0'.0,  0.0,  0.0,  0.0,  0.0, 

0.0*  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 

TRANS  = .5712E+01,  .9E^00,  %3179£*0l,  .9E*0fl,  .147AE»-0i.  .^9E*00, 
.IE^0i,  .9E4'00,  0.0,  0„.(|V  0«0,  0jt0,  8»0,  0.0, 

0.0,  0.0,  0.0,  0,0,  0.0,  0.0,  0.0,-  0.0,  0.0,  0.0,  0.0, 
y.0,  0.0,  0.g,  0.0,  0.0.  0.3»  0.0r  0*0,  0.0t 
0.0,  0.0,  0.0,  0.0*  0.0, 

VAA  * .66E+02, 

VOA  = .37E'*-02, 

VFS  = 0.0, 

VOOb  = .lE+03,  .2E+02,  .fi£>01,  .<»e«-0.1,  *2E*01,  .iE*01,  .lE+01,  0#0, 

0.0.  0.01,  .0.0,  0.0,  0.0.  0,0,  0.0,  0.0, 

0.0,  0*0,  0*0.  0.0|l  0.0,  0.0,  0.0),  41.0,  0.0,' 

VOObS  = ,i5E«-02,  .i5E*02,  *15Ef02,  ,15E»-02,  Ll5E*02.  .15e»02,  .15e»02, 
.15E4-02,  .15E4-02,  .16EA02,  .15E*02<, 

*I5Ei>-02,  .i5E>02i,  «I5E'*>02,  .15E4-02,  0.0,  0.0,  0.0, 


0.0*  0 . L 

' 9 

0.0, 

0.0, 

0.0, 

0*0i 

VK  iDE 

= 

.765E*02, 

.2iEft02«  , 

i>95E^01,  « 

51E4'0I,  «2E4^01, 

.2£«'01,  .2E«^21 

* 2E  ^ 0 1 . 

.2E*01 

. 0* 

0,  0. 

0,  0i40  . 0. 

0,  0. 

0,  0*. 

0, 

0.0, 

0*0. 

0.0. 

0.£2 

£40, 

0.0f 

0.0, 

0^.0• 

0.0, 

0.0, 

0.0,  0.42 

0.0,  iii,iC 

9 

0.e, 

0.0, 

0.0, 

a.0. 

0.0, 

040, 

0*0. 

0.0, 

0.0, 

0.00 

£.0, 

0.0, 

0.0, 

0W0, 

0.0, 

0.0, 

0.0r  0.4, 

0.0,  0.0 

9 

0*0, 

0*0, 

0.0. 

0.'0* 

0.0, 

0.0, 

0.0, 

k»«  0, 

0*0, 

0.0, 

VSS 

= 

0*0, 

VSSAXP 

0.0, 

wc 

:= 

0.0. 

WOAXP 

= 

0.0, 

WORTH 

= 

0.0. 

0.0, 

0.0, 

£..  82 

0.0, 

0*0. 

0.0  V 

0.0, 

0.0, 

0.0, 

0.0,  0.42 

0.0,  0.L 

9 

0.  £• 

0 40, 

0.0, 

0«.02 

0.0, 

0.0, 

WOTH 

= 

.6 AE+02, 

WGHT 

*1  7AE1-0A, 

.l9i6E*’0Ai) 

0.£, 

0.0. 

0.0, 

0.0, 

0.0, 

0*0, 

0.0,  0*4, 
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L«0* 

0.0, 

0.£,  0.0, 
0.0, 

0.0,  0.01  0.0, 

0.0,  0.0, 

MI 

= 

.4  58E+  02, 

WRAT 

= 

0.0,  0.0, 

0.0,  0^0#  0«0« 

0.0,  0.0 , 

0ii,0>, 

0.  0, 

0.0, 

0.0, 

0. 

l£  *0  * 

0.0, 

0^0,  0.0, 

0.0,  0.0, 

0.0, 

MRFORD  = 

0.0, 

WT 

S 

.53E«'02, 

.53E»e2,  fl.0,  0 

.0,  0.0,  0i,0>,  0 

.0,  0 

.0,  0 

.0,  0 

.0, 

0.0, 

0.0, 

0,  0.0,  0. 

0,  0.0,  10.0,  fl. 

0,  0.0, 

0.  0, 

MTE 

s 

•4  56E  **02 , 

.456E*'0j2«  0.0, 

0.0,  0 .0 , 

0.0, 

0.0, 

0.0, 

0.0, 

0. 

04 

0.0f 

0.£» 

0.0,  0.0, 

0.0,  0.Ci  0.0, 

0.0,  i^.0. 

wwAXP  = 

X8RC0F  = .7E«>00. 
$eNO 


! 
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NTU 

ITLT 

VMAX 

UP 

LEWEl 

OOWN 

VS  EL 

UP 

LEV  EL 

DOWN  GRADE 

AREA 

1 

1 

37  .15 

37.15 

37.15 

Ji.15 

37.15 

37.15 

37.15 

37.15 

1 .00 

0.0200 

2 

1 

37.15 

37.15 

37.15 

37.15 

37.15 

37-15 

37.15 

37.15 

1.00 

020100 

3 

1 

37.15 

37.15 

37.15 

37.15 

37.15 

.37.15 

07415 

37.15 

1.00 

0.4  0800 

A 

1 

33.26 

30.03 

33  .66 

36.79 

33.26 

30.03 

33  266 

36.79 

1.00 

0.0800 

5 

1 

0.00 

0100 

0 J30 

0.00 

0.00 

0 .00 

0 .00 

0.00 

1 .00 

040000 

6 

1 

37.15 

37.15 

37. IS 

37.15 

37.15 

37.15 

37.15 

37.15 

3.50 

0.0000 

7 

1 

37.15 

J7.15 

37.15 

37.15 

37.15 

37.15 

37.15 

37.15 

7.50 

0.0400 

8 

1 

30. ‘91 

23213 

37.15 

37.15 

30.91 

23 .13 

37215 

37.15 

15.00 

0.0 §00 

9 

1 

18.99 

li.26 

.37.15 

03.66 

18.99 

11.26 

37.15 

23.66 

50.00 

0.0000 

10 

1 

0.00 

0.00 

37.15 

20.26 

0.00 

0.00 

37.15 

10.26 

65.00 

0.0840 

il 

1 

37  .1  5 

37.15 

37  .15 

37.  15 

37.15 

37.15 

37215 

37.15 

1 .00 

040800 

12 

1 

17.64 

16.6  7 

17  .71 

28267 

17.64 

16.67 

17.71 

18,67 

1.00 

0.0800 

13 

1 

12.72 

12.67 

12.72 

12.76 

12.72 

12.67 

12.72 

12.76 

1 .00 

0.0800 

lA 

1 

8 .90 

8.45 

8.92 

9.35 

8.90 

8.45 

d.92 

9.35 

1.00 

0.0000 

15 

1 

0 .00 

0.00 

0.010 

0 200 

0.00 

0.00 

0.00 

0.00 

1.00 

0.0400 

16 

1 

33  .80 

28.64 

37.15 

37215 

33.80 

28^.64 

37216 

37.15 

3.50 

0.0800 

17 

1 

31  .04 

23.36 

37.15 

37.15 

31.04 

23.36 

37.16 

37.15 

7.50 

0,0800 

18 

1 

29  .41 

20.76 

37.15 

37.15 

29.41 

20'.  7.6 

37.16 

37.15 

15.00 

0.0800 

19 

1 

0 .00 

0.00 

37  .15 

37.50 

0.00 

0^00 

37415 

27-58 

50.00 

0.0800 

20 

1 

0.00 

0.00 

37.15 

37257 

0.00 

0).00 

37.15 

17.57 

65.00 

0.0800 

21 

1 

37.15 

37.15 

37-15 

37.15 

37.15 

37  .15 

37.15 

37.15 

1 .00 

0.0000 

22 

1 

9 .50 

9.50 

9.50 

9.50 

9.50 

9^50 

9.50 

9.50 

1.00 

040100 

23 

1 

2 .00 

2.00 

2 200 

2 200 

2.00 

2.00 

2.00 

2.00 

1.00 

0.0800 

2A 

1 

2 100 

2 .00 

2 .00 

2.00 

2.00 

2.00 

2.00 

2.00 

1 .00 

0.0000 

25 

1 

2 .00 

2.00 

2.0.0 

2.00 

2.00 

2.00 

2.00 

2.00 

1.00 

0.0800 

26 

1 

24.73 

24.73 

24.73 

24.73 

24.73 

24.73 

24.73 

24.73 

L.00 

0.0840 

27 

1 

24  .73 

24,73 

24  .73 

34.  73 

24.73 

24.73 

24.73 

26.73 

1 .00 

040800 

28 

1 

18.54 

18.54 

18.54 

18.54 

18.54 

18,.  5 4 

18.54 

18.54 

1.00. 

0.0800 

29 

1 

0.00 

0200 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

1 .00 

040800 

30 

1 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

1.00 

0.0  000 

3 1 

1 

24.52 

24.52 

24  .5  2 

24.52 

24.52 

24.52 

24.5  2 

24.52 

1.00 

0.0800 

32 

1 

22  .96 

22.83 

22  .95 

23.11 

22.96 

22.83 

22.9  5 

23.11 

1.00 

0.0  §0  0 

33 

1 

18  .3  6 

18.36 

18  .36 

18.36 

18.36 

18.36 

18.36 

18.  36 

1.00 

0.0100 

34 

1 

24.72 

24.72 

24.72 

24.72 

24.72 

24.72 

24-72 

24.72 

L.00 

0.0200 

35 

1 

24  .54 

24.1  9 

24  .7  2 

34.72 

24.54 

24.19 

i24272 

24.72 

1 .00 

0.0800 

36 

1 

37.15 

37.15 

37.15 

J7.15 

37.15 

37.15 

37.15 

37.15 

1.00 

0.0800 

37 

1 

37.14 

37.14 

37.14 

.37^14 

37.14 

37  -14 

37.14 

37.14 

1 .00 

0.0000 

38 

1 

0.00 

0.00 

0.00 

0.06 

0.00 

0.00 

0.00 

0.00 

1.100 

0.0  800 

39 

1 

0 .00 

0.0  0 

0.00 

0200 

0.00 

0.00 

0.00 

0.00 

1.00 

0.0000 

40 

1 

0.00 

0.00 

0 .00 

0.00 

0.00 

0.00 

0 20# 

0«#0 

1 .00 

0.0000 

41 

1 

0 .00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

1.00 

0.0000 

42 

1 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

1.00 

0.-0i40 

43 

1 

0.00 

0.00 

0.00 

0.00 

0.00 

0»00 

0.00 

0«80 

1.00 

0.0840 

44 

1 

34.6  8 

3426  8 

34.6  8 

34.63 

34.68 

34-68 

34.68 

34.68 

1.00 

040800 

45 

1 

22183 

22i83 

22  .83 

22.83 

22.83 

22.83 

22.83 

22.83 

1 .00 

0*0§00 

46 

1 

10.57 

10.57 

10.5  7 

10^57 

10.57 

10.5,7 

10.57 

10.57 

1 .00 

0.0104 

47 

1 

34.68 

34.6  8 

34  .68 

34  .66 

34.68 

34.68 

34.68 

34.68 

1.00 

0.0000 

48 

1 

22  .83 

22.83 

22  .83 

32.83 

22.83 

22.83 

22-83 

22.83 

1 .00 

0.0000 

49 

1 

10.57 

10.57 

10.57 

10.57 

10.57 

10.57 

10.57 

10.57 

1.00 

040800 

50 

1 

5.84 

5.84 

5.84 

5.84 

5.84 

5.84 

5.84 

5.86 

1.00 

0. 0800 
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jCONTkL 
DETAIL  = 2, 

KSCEN  = 1, 

KVEH  = 1, 

Kill  = 0. 

Kn2  = 0« 

Kiia  = 0, 

KII4  = 0, 

KII5  = 0, 

KII6  = 0* 

KII7  = 0, 

KII8  = 0f 

Kl  19  = 0, 

Klil0  = 0, 

KIIll  = 0, 

KII 12  = 0, 

KII13  = 0, 

KII14  = 0, 

Kills  = 0. 

KII16  = 0, 

Kill?  = 0, 

KMAP  = 0, 

KTPP  = 0. 

KIVI  = 0, 

KIV2  = 0, 

KIV3  = 01 

K1V4  > 0, 

KIV5  = 0. 

KIV6  = 0, 

KIV7  = 0* 

KiV8  - 0, 

KIV9  = 0« 

K1V10  = 0t 

KIVU  = 0* 

KIVU  = 0. 

KIVU  = 0« 

KIVIA  = 0> 

KTV15  a 0» 

KIVU  a 0, 

KIVI?  a 0* 

KIVU  a 0t 

KIVU  a 0» 

K1V20  a 

KIV21  a 0, 

NTUX  a 1, 

SEARCH  a 0, 

SEND 

SSCENAR 

COHES  a .5E-01, 

DCLMAX  a .5E*00. 

GAMMA  a .2E*-00, 

lOVER  a 9, 
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SAMPLE  OUTPUT  OF  PROGRAM  NRMM  - VEHCLE4  Ml  51*  TERRAINS  CKKRD 


ISEASN  =3* 

ISURF  = 1, 

ISNCW  = 0. 

LAC  = 1, 

MAP  = ll * 

MAPG  = 1, 

MONTH  =1, 

NOPP  =0, 

NSLIP  = 0, 

NTRAV  = 3, 

NTUX  =1, 

PHI  = .21E'*0  2. 

REACT  = .5E*-00. 

ROFGG  = .1E*0A, 

SFTYPC  = .9E*02, 

VBRAKE  = .5E*01, 

VISMNV  = -2Ef01, 

VLIM  = .55E*02, 

ZSNCW  = .3Ef01, 

tEND 

$VEHICLE 

ACO  = .12E*-01. 

ASHOE  = 0«0,  0.0*  0.0*  e,i4  0«0«  0«0t  0.0*  0i.0»-  0.0*  0.0*  0.0*  0.4* 

0.0*  0.0.  0.0*  0.0*  0.0*  0.£^  a,a,  0.0* 

AVGC  - .i2E#0  3. 

AXLSP  = .85E>02*  0.0*  0.0*  J^.0*  0«0»  £^0<»  0.:0*  0»0£  0.0*  0.0»  0.0| 

0.0*  0.0.  0.0.  0.0*  0.0*  .040*  0.0,  0.0*  0.0* 

CO  = .i2e+01* 

CGH  = .103E+02* 

CGLAT  = 0.0, 

CGR  = .A2E+02, 

CIO  = .lAISE«-£3, 

CL  = .9  IEA'0  1. 


CLKMIN  = 

.UAE^02* 

.11AE>02* 

0.0* 

£.0, 

0.0, 

0.0V 

0.0, 

e.0. 

0.MI* 

0.0, 

0.0,  0.0, 

0.0* 
0.  0* 

0.0, 

0.0* 

0.^.* 

0.0, 

0.0, 

0.0* 

CONVl 

0.0, 

0.0* 

0.0, 

i3.0* 

0.0, 

0.0, 

0.0, 

0.0  * 

0 * 09 

0.0, 

0.0* 

0.0,  0.0. 

0.0* 

0.0* 

0.0* 

ii  m^-0 

0.0, 

0.0, 

0.0* 

0.  0* 

0.0* 

0.0. 

0.0, 

0.0, 

0.0* 

0.0'* 

0.0-* 

0.0, 

0.0,' 

0.0* 

0.0* 

0.0*  0.0. 

0.0* 

0.0, 

0.0* 

0 . 0rj* 

0.0, 

0.0, 

0.0* 

0.  0, 

0.0* 

0.0, 

0.0.» 

0.0, 

0.0, 

0.0, 

0 . 0* 

CONV2 

0.0* 

0.0* 

0.0, 

0.0* 

0.0* 

0.0* 

0.0  , 

0.0* 

0.0* 

0.0, 

0.0, 

0.0,  0.0. 

0..0* 

0S0, 

0.0* 

.0we* 

0.0, 

0.0* 

0.0* 

0.0. 

0.0* 

0.0, 

0.^* 

0.0, 

0.0* 

0'.0, 

0.0  * 

0.0, 

0.0, 

0.0* 

0.  0*  0.0. 

0.0, 

0.0, 

0.0, 

0.0.* 

0.0* 

0.0, 

0.0, 

0.  0* 

0 .0, 

0.0* 

0.0# 

0.0, 

0.0, 

0.Af , 

£.0, 

OFLCT 

.131E<-01* 

.114E*03*l 

16. 0, 

0.0* 

0.0* 

0.0, 

0.0* 

0.0, 

0.0, 

0.  a.. 

0.0*  0.0. 

0.0, 

0^0# 

0.0, 

0.0# 

0.0* 

0.0  * 

0.0, 

0.0, 

. i31E«-01* 

.li4E^01, 

0.0, 

0.0* 

0.0, 

0.0* 

0.0, 

0.0, 

0 . 0, 

0.0*  0.0* 

0.  0* 

0.0, 

0.0* 

0.0* 

0.0, 

£.0, 

0.0* 

0.  0, 

0 -*0  f 

.l£»0i*  aE»01 

, 0.0 

, 0 . £.* 

0.0 

, 0.0 

, 0.0, 

0.0, 

0i0* 

0.  0 * 

0.0  * 

0.0»  0 

.0, 

0.0,  0 . 0« 

0.0* 

£.0., 
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SAMPLE  OUTPUT  CF  PROGRAM  N8MM  - VEHCLE:  M151,  TERRAIN:  CKKRD 


2,»i*  ni  titi  f 

OIAW  = .3£;8Ei‘02.  .308E*-0i2  0.0»  0^0*  0«0*  0«0*  0-0f  0.a« 

£.0t  0.0.  0.0.  0.0.  Ii^i4  0«0*  0.0* 

0.0. 

CRAFT  = 0.0, 

ENGINE  = .8Et03 ,.  .115E»03.  4i2E>04,  .11SE»03.  •16E«-0A»  .llSEt-ai. 

.2E«0^.  .n5E«-03>  .24Eiifl4.  .liaEAaa*  .28€«:0A« 

.i08E4-03.  .32e*0A...  .J103E*03,  .J6E*0<A*  .9iE>«-02«  •4E»04. 

.88E4-02,  .44E«04.  .8E^JI2.  0.0.  0.0#  i0.Cd.,  0.0* 

0.0.  0.0,  0.0.  0.0.  0.0.  0.0.  0.0,  0.0,  0.0,  0.0,  0.0,  0.£, 

0.0,  0.0.  0.0.  0.0.  0.0.  0.0,  0.0,  0.0,  0.0.' 

0.0.  0.0,  0.0.  0 0.0,  0.0,  0.0,  0.0.  0.0,  0.0.  0.0.  0.0. 

0.0.  0.0.  0.0.  0.0,  0.0*  0.03  0.0.  0.0*  0.0, 

0.0.  0.0,  0.0,  0.««  0.0,  0.0.  0.0.  0.0,  0.0,  0.0*  0.0,  0.0^ 

0..0.  0.0.  0.0.  0.0,  0.0*  0.0«  0.0,  0.0.  0.0, 

0.0.  0.0,  0.0.  0.0*  0.0,  0.0,  0.0.  0.0.  0.0*  J.0,  0.0r  0.0* 

tl  mi  $ 

EYEHGT  = .525E*02, 

FO  = .486E4-01,  .9E«-£0, 

FORDO  = 0.2, 

GROUSH  ~ 0.4,  0.0.  0.0.  0w2*  0.i3.  0.0*  0.0*  0j.0*  0.0,  0.0*  0.0*  0.8-. 

0.0.  0.0.  0.2.  0.0.  0.0,  04iU2.*  0.0*  0.0. 

riPNET  = .7392E+02, 

HVALS  = .lE-01.  «4E»01,  .SE^ai.  •12E*>02.  3l6E*02*  .2E*02.  .4E4-02*  0.0, 
0.0.  0.0.  2.0.  0.0,  0.2*  030,  0.0.  0.0, 

0.2,  0.0,  0.0,  0'.0*  0.0,  0.0,  0.0.  0.0,  0.0, 
lAPG  =0, 

lb  = 1.  i.  0.  0.  0.  0.  41*  0*  0*  0*  0*  0.  0,  0.  0,  0.  0.  0.  0* 

ID  = 0,  0..  2*  0,  0,  0.  0.  0,  2,  0.  0,  0*  0*  0*  0,  0,  0.  0.  0,  2* 

IDiESL  = .1E4-01, 
lENGlN  = 10, 

ICONST  =1,  1,  2.  0,  0.  0,  0,  0,  0.  0,  0*  0,  0*  0»  0.  0*  0,  0,  0,  2* 
ICONVl  = 0, 

IC0NV2  = 0. 

IP  =1.  1.  0*0.  2,  0.  >0*  0',  0,  0,  0,  0.  0,  0.  0*  0,  0*  0.  0*  2* 

I POWER  =17, 

IT  = 0,  0.  0*  0,  0,  0.  0*  0,  0.  0,  0,  0.  0,  0,  0.  0.  0.  0,  0,  2, 

ITCASE  = 0, 

ITRAN  = 0, 

ITVAR  = 0. 

LOCOIF  = 0. 

LOCKUP  = 0, 

MAXIPk  = 9, 

MAXL  = 1. 

NAMBLY  = 2, 

NBOGIE  = 0.  0.  0.  0.  0.  0.  0*  0*  0,  0,  0.  0,  0,  0*  0,  0,  0.  0*  0*  2|t 

NCHAIN  = 0.  0.*  0.  0,  0.  0*  ii*  0,  2.  0*  2',  0.  0*  0,  0,  0,  0.  0,  0»  2, 

NCYL  = .4Ef0l  , 

NENG  = .'lEf01, 

NFL  = 0.  0.  0,  0.  0.,  0,  0*  0*  0,  0.  fc.  0*  0.  0*  0*  0,  0,  0,  0,  2* 

NGR  = A, 

NHVALS  =7. 
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SAMPLE  OUTPUT  Of  PROGRAM 

NR?<J  - vehicle:  M15i, 

TERRAIN 

: CKKRO 

NPAD 

if  df  if  0,  it 

it 

it  im 

it  it  it  it 

it  it  it 

it  it  if  it  it 

NSVALS  = 

16  • 

NVEH 

1,  it  it  if  if 

it 

it  it 

if  it  it  it 

if  it  it 

it  it  it  if  -it 

nwhl  = 

2t  Z f ict  if  it 

it 

it  it 

it  it  it  it 

0f  0 # it 

it  it  it  it  it 

NWR 

it 

PBf 

• 3 2BH^f 

PBHT 

•ze*0Zf 

PFA 

.2  25E+  02  <, 

POWER 

0.0*  •2195E«04 

f « 

A9E*eit 

«2165E4-[04« 

•75E>01« 

.ZiiiE*i^t  •lE*02t 

.1815E4'0A,  .101E4-02* 

21205E»04,  .12E»02 

» 

.118E4;04,  .lS5E«-02»  yie85E4-04.f  .198E«02«  .67E«03,  .199E«-02y 

.66E^03, 

• 2 5E*iZt  •b5E*i3t 

^aE*02 

. .6J15E403« 

• 33E>02t  •56E'*‘k3ji« 

«2 3 IE 4- 02*  .4  2E«03/« 

.4E*02« 

,385E+03r 

.A5E+02  • 

.355E+03, 

• S £402’ t • 

34Ef03,  •56E^02* 

.31E*03, 

0.0, 

2.0  « 

2.0, 

0.0, 

0.ft, 

040, 

0.8, 

8.8, 

0.01 

y • it 

0.0, 

0.0 

, 0.0 

, 0.0 

0 10  *0 

, 0.0 

, 0.0 

, 

0.  £f 

0.0, 

0.0, 

0*0  li 

0.0, 

0.0, 

0.0, 

0.04 

8.04 

0.0, 

0.0, 

0.2, 

0.0» 

0.0, 

0.0, 

0.0, 

0.0, 

0 • Z-t 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

i a 0 id 

0.04 

8.0, 

0.0, 

8.0, 

8.8, 

0.04 

8484 

0.0, 

0.0* 

0.0, 

0.0, 

0 .0  , 

0.0  , 

Ztiig 

0.0, 

0.0, 

0.0, 

2.  2, 

0.0, 

0.0, 

0.0, 

0.0, 

2.0, 

8.8  , 

0.8, 

8.0, 

0.0, 

0.’2, 

ii^it 

0.0, 

0.  2, 

0.0, 

0.0, 

0.0d 

0.0, 

0.0, 

0.8, 

0.0, 

0.0, 

0.0, 

02«2# 

0404 

8 . 0 4 

8.0, 

0*  0 4 

0.0, 

0.0, 

8.0, 

0.84 

0.’0« 

0.0, 

0.2, 

0.0, 

0.0, 

0 ..2  i 

0.0, 

0.0, 

0.0, 

2.  2, 

0 .0, 

0.0, 

0.’i2« 

0.0, 

0.0, 

0.04 

0.0  4 

0.0, 

8.8, 

8.0, 

0.84 

0.0, 

0.0, 

0.  it 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.  0, 

0.0, 

0.0, 

0.00 

0.0, 

8.04 

8.0, 

0'.0, 

0.8, 

0.0, 

8.8,' 

0.fl« 

0.  0, 

0.0, 

0.0, 

0.0, 

0.0  , 

0 . ^4 

0.0* 

0.0, 

0.0, 

0.2, 

0.0, 

0.0, 

0.01 

0.0, 

0.0, 

0.0, 

0*04 

8.8, 

8.0, 

0.0, 

0 . 8<4 

0.0, 

0 .0, 

0.0, 

0.0, 

0.0, 

0.21 

0.0, 

8.0, 

8*04 

0.  0, 

0.0, 

y.0. 

0.02 

0.0, 

8.8, 

0.04 

0.0, 

0.0, 

0.0, 

0.0, 

0.  84 

0.0. 

0.0, 

0.2, 

0.0, 

0.0, 

0 *<04 

0.0, 

8.0, 

0.0, 

0.2, 

0.0, 

0.0, 

0.<0> 

0*04 

0.0, 

0.0, 

0.04 

0.04 

8.0, 

0.8, 

8.2, 

0,0, 

0 .0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0* 

0.0, 

0.0, 

8.0, 

040, 

0.04 

0.0, 

0.0, 

0.2, 

k/.  y , 

0.0, 

0.0, 

0 .0  , 

0.0, 

0.04 

0.0, 

0.0, 

8.0, 

0.2, 

0.0, 

0.0, 

i»£g 

0.0, 

0.0, 

0.0, 

0*0  , 

8.8, 

0.0, 

0.8, 

0*2« 

0 . 0 f 

y . 0, 

0.  it 

0 .0, 

0.0, 

0*0  4 

0.0, 

0.0, 

0.8, 

0.0, 

0.0, 

0.0, 

0*0# 

0.0, 

0.04 

0.8, 

0.04 

0.0, 

0.0, 

0.0, 

0*8, 

0.0, 

0.0, 

0.2, 

0.0^ 

0.0, 

.0..2« 

0.04 

0.0, 

0.0, 

0.0, 

0 .0, 

0.0, 

0.0# 

0.8, 

0.0, 

0.0, 

0.04 

8.04 

0.0, 

0.8, 

0.2, 

0.0. 

0.0, 

0.  0, 

0.0, 

0.0, 

0 . 0<* 

0.0, 

0.0, 

0.0, 

0.  0, 

0 .0, 

0.0, 

0.0# 

0.0, 

0.0, 

y.8. 

0.0, 

8.0, 

2.0, 

0.8, 

0.84 

0.0, 

0.0, 

0.0. 

0 .0  , 

0.0, 

0 .2* 

0.0, 

0.0, 

0.0, 

2.  2, 

0.0, 

0.0, 

.0  *0  , 

0 *8  , 

0.0, 

2.0, 

0.0, 

8.0, 

8.0, 

8.8, 

0.8, 

0.0, 

0.0, 

0.2, 

0 .0, 

0.0, 

0.04 

0.0, 

0.0, 

0*8, 

0.0, 

0.0, 

-0.0, 

0.0, 

0.0, 

0*0, 

0*0  ,' 

0.0, 

0.8, 

0.04 

0.8, 

0.0, 

i^0t 

-.0.0, 

0.0, 

0.0, 

0 *>0  % 

0.0, 

0.0, 

0.0, 

0.  0, 

0.0, 

0.0, 

0.0  4 

0.04 

0.0, 

0.0, 

0.0  , 

0.0, 

0.0, 

0.0, 

0.  2, 

y • 0 » 

OMAx  = .iisE^ya, 

ROiAM  — *1 6E^0  2 * * 16  E ^ 22 « Jiw£  t Z •Id  t 0>«  0 1 0 • 0W  2fa  0f  0*0y  0»0f  0*0t  0«0t 
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SAMPLE  OUTPUT  OF  PROGRAM  hRHM  - VEHICLE;  Ml  51,  TERRAIN:  CKKRD 


0«0t  -fa  • 0 , ia0  t Iim0t  Smiil  040  0 0*0,  0*0, 

0.0f 


REVH 

0.0, 

= .72E«-03,  . 72E*£3i,  J*0,  0.0,  £.0, 
0.0,  £.0,  0.0,  0.0,  040,  0.0,  0.0, 

0.0# 

0.0, 

0.0, 

0.0, 

0.0, 

0.0 

PI  MW 

• H p 

= «^5E^01«  •45E^k;U  0*il9  £.0t 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0 

0*0*  \c  • id  0 £*0,  0*0,  0«£^  0«£,  0*£, 

0.£» 

RMS  = .2  5E»-00,  .1E«>01,  ,.JE+0<1,  .3E*01«  .4E»01,  .5E+01,  .bE+01, 


.7E*0i  , 

• 

BE  *01  , 

t 

0.0 

, 0»il# 

0,0,  0.0,  £.0,  0.0, 

0. 

£, 

0 .0, 

0 

.0. 

0.0# 

0.0, 

HW  = 

0. 

0, 

0.0, 

0 

. ki  ', 

0 4£i 

£40,  £.0,  040,  01.0,  0.0,  0.0,  0.0,  0.0, 

£.0,  0.0. 

0. 

£, 

0.0, 

0 

.0, 

0.  £# 

0,0,  £.0, 

SAE 

0. 

e. 

SAI 

0* 

SECTH  = .7AE4-I01.  .7AE«-£1,  JAB,  fl.0,  0.0^  0.0»  0.0,  0.0,  0.0,  0.0,  0.0, 

0.0,  Qjiuif  )i»£ 0 £.0,  0.J,  0*0,  0.0,  0.0, 

0.0, 

SECTVi  = .715Et01,  .7l5E*0i«  £.0,  £.0,  0.0,  0i.0,  0.0,  £.0,  0.0,  0.0, 

0.0,  i6.L,  0.0,  0.0,  0.0,  0.0#  0.0,  0.0,  0.0, 

0.0, 

SVALS  = .1E«-01,  .2E«’01,  .3ft01,  .46*01,  p5E*01,  46E4-01,  .7E*01, 

.ttE*01,  .VE«-01,  .lE<»-02#  ;llE«-02,  •12E*02,  .13E>02, 

.156^02,  .2E«-02,  .4E*£2,  £.0,  0»0,r  0#0,  0.0,  0.0,  0.0,  0.  £« 

^.0,  0.0, 

rCASE  ^ .1E«-01  , .1  E4-01  , 

•"L  --  .8  5E  + 0 2, 

TPLY  - .66*01,  .6 E* 01  , £i»0#  £.0,  0.0,  0.0i,  0.0,  0.10,  0.0,  0.0,  040, 

0.0,  0.0,  0.0,  0.0,  0.0,  0.0',  0.0,  0.0, 

0 . £ , 

TPSI  ' .iSE*ii/2,  .15E*£2,  0.0,  0.0,  0.0,  0.0*  0.0,  0.0,  0.0,  0.0,  0.0, 

£.0,  £.0',  £.0,  0.0,  0.0,  0 .J , 0.0,  0.0, 

0.  £,  •15E*'02,  .15E402,  0.0,  0.0,  0.0#  0.0,  0.0,  0.w,  0*0,  J.0, 

0.0,  0.k),  £.0,  0.0,  0.E,  0400  0.0,  0,0, 

0.0,  0.0,  .25E*02#  .25E*£2,  0.0,  0.0#  0.0,  0.0,  0.0,  0.0,  0.0, 

1^.0,  0.0,  £.0,  0.0,  0.£,  £i,0,  J*. £ , 0.0, 


0 .0, 

0.0, 

TQIND 

k/  0 fl  0 

TRAKLN 

0.£f 

0.0, 

0.0, 

0.0#  0.J, 

0.0# 

£>.0,  0p»0,  0.0# 

0.0, 

0.0, 

0.8# 

<£  . 0 , 0.0, 

0.£r 

0.0, 

0.0, 

0.£#  0.0, 

0.0, 

IRAK  WO  = 

iii*  £• 

0.0, 

0.0, 

0.0#  0.0, 

0.0, 

0.0,  0'.  0,  0*0, 

0.0, 

0.0, 

0.8# 

0.0,  0«0t 

0*0# 

0.0, 

0.0, 

0 * 0.0, 

0.0« 

TRANS  = 

.5712E  + 01, 

.9E*00  , 43179E«-01, 

.9E«00*  .'l»74E*0i, 

.9E*02 

I# 

.1E*01  . 

• 

9E*00, 

0.0 

• 0.0 

, 0*01#  0 * 0# 

£.£• 

0.0, 

0.0, 

>0  . J # 0 , 0 , 

0.0, 

0.0,  0.0,  J4.0, 

0.0, 

0.0, 

0.8, 

a, 00  0.0, 

£.  £, 

0.0, 

0.0, 

0.0#  0.0, 

0.0, 

0.0, 

0.  £, 

0.0, 

0.0, 

0.-0#  0.0, 

VAA  - .66E*02, 

VDA  = .37E*02, 

VFS  = 0.£. 

VOOB  = .1E*03,  .2E*02,  .4fii»0i,  .AE^Bl,  ..2E«-£1,  .lE^Bl,  .1E«-01,  0.0, 

0.0,  0.0,  0*0>,  0.0,  0.0,  0.0,  0.0,  0.0, 
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K.e*  0.0*  0.0,  0.01*  0.0,  0.0*  0.0,  01.0,  0.0, 

VUOBS  = .i5E*02,  .15E^02,  ^15E4-02,  .15E+02,  .15E*02,  .1&E+02,  .15E>02, 
-■15E*-e2,  .15E4-02,  •15E*-02,  .15E+02, 

.15E«-02,  .15E^02,  •15E4-02,  •15E-«-02,  •i5E«02,  0.0,  16.0,  0.a, 


0.0*  0 

0.0* 

0.0, 

0.0, 

4.01 

VRIDE 

= 

.765E*02, 

.21E«02, 

.95E4-01,  .51E-»01 

, •2E4-01, 

.2E4-01,  . 

2E+01, 

.2E+01 

t 

.2E  »01 

.,  0. 

0,  0. 

2 f 9 £ « 

0*  0.0,  4.0 

I* 

0.0, 

0.0, 

0.0, 

0.0* 

0.0, 

0.0,  0.0, 

0..0, 

4.4, 

£.0* 

0.0, 

0.2* 

0.0,  0 

.0* 

0.0, 

0.0, 

0.0, 

0.e,« 

424, 

4.0,  4.0, 

0.  0r 

.0.0, 

0.0, 

,0  . £ * 

0.0, 

0.0,  0.0, 

04  0, 

0*0. 

0.0, 

0.0, 

0.2* 

0.0,  0 

.0, 

0.0. 

0.0, 

0.0, 

4.2# 

4.0* 

0.0 , 0.0, 

0.0, 

0.0, 

0.0, 

vss 

=; 

0.0, 

VSSAXP 

= 

0.0, 

wc 

= 

4.0, 

WDAXP 

0.  0, 

WDPTH 

= 

0.0, 

0.0, 

0.0, 

.0.2» 

0.0, 

0.0,  0'.0, 

040, 

0.0* 

0.0, 

0.0* 

0.4, 

0.0,  k) 

.0f 

0.0, 

0.0, 

0.0, 

0.£« 

0.0, 

0.0, 

k<DTH  = .6AE602, 

WGHT  = .174E4-04,  .146E«-04*  0.0,  0.0,  0.0.,  0,0,  0.0,  0.0,  0.0,  0.0, 

^.0.  0.0.  0.0,  0^0,  0.0,  0.0*  0.0,  0.0,  0.0, 

0.0, 

MI  = .458E«-02, 

MRAT  = 0.0,  0.0,  0.0,  0.4»  0.0,  0.0,  0.0,  0.0,  0.0,  £.0,  0,0,  0.0, 

0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 

WRFCRD  = 0.0, 

WT  = .5  3E402,  •53E«-02»  4*0,  0.0,  0^0,  0.0^  0»0#  0.0*  0.0,  0.0*  0.0* 

0.0,  .0.4i,  £.4,  0.i0,  0.0,  e,a,  0.0,  0.0, 

0.0, 

MTE  = .456E«-02,  .^ShE*tZ4  0.*0*  0.0t  0»«,  0*0*  0.0*  0.0,  0.0*  0.0, 

0.0,  0.0,  0.0,  0.0,  0.0, 0.0#  0.0,  0. 0 , 0 .4, 

0.0, 

WWAXP  - 0.0, 

XBRCOF  = .7  £+160, 


WWAXP  - 0.0, 

XBRCOF  = .7  £+160, 

SEND 

NTU  LTUT  VSEL  UP  DOWN  GRADE  DISTANCE 

1 11  54.94  54.87  55.00  3.00  .1000 

2 12  ^0.00  40.00  40.00  7.00  .1100 

3 12  49  .62  45.19  55.00  7.00  .1200 

4 12  25  .016  25  .00  25  .00  3.00  . 1300 

5 13  35.80  35.80  35.40  4.04  .1400 

6 13  32  .24  29.32  35  .84  IS. 00  .1500 

7 13  7.3  0 7.3  0 7.30  3.00  .1600 

8 13  35.80  35.80  35  .64  3.00  .1700 

9 14  35  .39  34.99  35.80  3.00  .1800 

10  14  28.22  23.2  9 35.80  15.00  ,1  900 

11  14  28.00  22.99  35.60  26.00  .2000 

12  14  7.3,0  7.30  7w30  3.00  .2100 

13  14  21  .00  21.00  21  .00  3.00  .2200 

14  14  9.0  0 9.0  0 9100  3.04  .2  300 
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APPENDIX  E 


POSSIBLE  STOPS  IN  PROGRAM  NRMM 

The  program  NRMM  can  terminate  execution  prior  to  normal 
completion  for  several  reasons.  In  most  such  cases,  an  octal  number 
is  available  to  indicate  at  which  of  the  STOPs  the  program  halted. 
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Possible  STOPS  in  Program  NRMM 


NUMBER  LOCATION 


SCN 


2 

3 


VEH 

VPP 


LINEAR 


LINEAR 


IV3 


IV3 


10 
1 1 
12 


IV3 

IV3 

TFORCF 


REASON  FOR  STOP 

User  erroneously  specified  control  variable 
DETAIL. 

Towed  track  elements  indicated  in  vehicle  data 
are  not  permitted. 

Printer  plot  of  tractive  effort  vs.  speed  has 
been  produced  because  either  user  specified 
DETAIL  = 5 level  of  output  or  the  tractive 
effort  vs.  speed  curve  fit  error  has  been 
exceeded . 

Interpolation  routine  LINEAR  requires 
powertrain  data  to  be  inserted  in  ascending 
order  of  magnitude. 

A calculated  point  is  outside  the  bounds  of 
the  array  to  be  interpolated.  (Check 
powertrain  data  for  errors.) 

Terrain  soil  value,  1ST,  does  not  conform  to 
the  soil  types  addressed  in  the  Model. 

(Check  terrain  data.) 

For  tracked  vehicles,  slipperiness  scenario 
variable  NSLIP  is  outside  the  range  used 
(0-6).  (Check  scenario  data.) 

Same  as  7 except  for  non-CH  soil  type. 

Same  as  7 except  for  wheeled  vehicles. 

Soil  type  variable  1ST  has  erroneous  value. 
Relationships  for  modifying  the  drawbar  pull 
curve  at  20%  slip  vs.  soil  type  are  available 
only  for  fine  grained,  coarse  grained  and 
muskeg  soils.  (Trace  passage  of  variable  1ST 
and  its  value  through  the  program.) 
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